/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / modes / f90.elc.z / f90.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 30 3a 35 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:50:53 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 66 39 30 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |s/f90.el|.;;; ema|
|000000b0| 63 73 20 76 65 72 73 69 | 6f 6e 20 32 30 2e 34 20 |cs versi|on 20.4 |
|000000c0| 22 45 6d 65 72 61 6c 64 | 22 20 58 45 6d 61 63 73 |"Emerald|" XEmacs|
|000000d0| 20 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |  Lucid.|.;;; byt|
|000000e0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000f0| 32 35 20 58 45 6d 61 63 | 73 3b 20 32 32 2d 4d 61 |25 XEmac|s; 22-Ma|
|00000100| 72 2d 39 36 2e 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 |r-96..;;|; optimi|
|00000110| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|00000120| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|00000130| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000140| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000150| 6d 61 63 73 20 31 39 2e | 0a 0a 28 69 66 20 28 61 |macs 19.|..(if (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000170| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000180| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000190| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|000001a0| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|000001b0| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|000001c0| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|000001d0| 20 22 32 30 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "20")))|.    (er|
|000001e0| 72 6f 72 20 22 60 66 39 | 30 2e 65 6c 27 20 77 61 |ror "`f9|0.el' wa|
|000001f0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|00000200| 6d 61 63 73 20 32 30 22 | 29 29 0a 0a 28 6f 72 20 |macs 20"|))..(or |
|00000210| 28 62 6f 75 6e 64 70 20 | 27 63 75 72 72 65 6e 74 |(boundp |'current|
|00000220| 2d 6c 6f 61 64 2d 6c 69 | 73 74 29 20 28 73 65 74 |-load-li|st) (set|
|00000230| 71 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |q curren|t-load-l|
|00000240| 69 73 74 20 6e 69 6c 29 | 29 0a 0a 0a 23 40 34 34 |ist nil)|)...#@44|
|00000250| 20 41 64 64 72 65 73 73 | 20 6f 66 20 6d 61 69 6c | Address| of mail|
|00000260| 69 6e 67 20 6c 69 73 74 | 20 66 6f 72 20 46 39 30 |ing list| for F90|
|00000270| 20 6d 6f 64 65 20 62 75 | 67 73 2e 1f 0a 28 64 65 | mode bu|gs...(de|
|00000280| 66 63 6f 6e 73 74 20 62 | 75 67 2d 66 39 30 2d 6d |fconst b|ug-f90-m|
|00000290| 6f 64 65 20 22 54 2e 45 | 69 6e 61 72 73 73 6f 6e |ode "T.E|inarsson|
|000002a0| 40 63 6c 61 62 2e 65 72 | 69 63 73 73 6f 6e 2e 73 |@clab.er|icsson.s|
|000002b0| 65 22 20 28 23 24 20 2e | 20 35 39 33 29 29 0a 28 |e" (#$ .| 593)).(|
|000002c0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 c3 c4 |byte-cod|e ".....|
|000002d0| c5 25 88 c0 c6 c2 c7 c8 | c9 c4 c1 26 07 87 22 20 |.%......|...&.." |
|000002e0| 5b 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |[custom-|declare-|
|000002f0| 67 72 6f 75 70 20 66 39 | 30 20 6e 69 6c 20 22 46 |group f9|0 nil "F|
|00000300| 6f 72 74 72 61 6e 2d 39 | 30 20 6d 6f 64 65 22 20 |ortran-9|0 mode" |
|00000310| 3a 67 72 6f 75 70 20 66 | 6f 72 74 72 61 6e 20 66 |:group f|ortran f|
|00000320| 39 30 2d 69 6e 64 65 6e | 74 20 22 46 6f 72 74 72 |90-inden|t "Fortr|
|00000330| 61 6e 2d 39 30 20 69 6e | 64 65 6e 74 61 74 69 6f |an-90 in|dentatio|
|00000340| 6e 22 20 3a 70 72 65 66 | 69 78 20 22 66 39 30 2d |n" :pref|ix "f90-|
|00000350| 22 5d 20 38 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |"] 8).(c|ustom-de|
|00000360| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00000370| 66 39 30 2d 64 6f 2d 69 | 6e 64 65 6e 74 20 27 33 |f90-do-i|ndent '3|
|00000380| 20 22 2a 45 78 74 72 61 | 20 69 6e 64 65 6e 74 61 | "*Extra| indenta|
|00000390| 74 69 6f 6e 20 61 70 70 | 6c 69 65 64 20 74 6f 20 |tion app|lied to |
|000003a0| 44 4f 20 62 6c 6f 63 6b | 73 2e 22 20 3a 74 79 70 |DO block|s." :typ|
|000003b0| 65 20 27 69 6e 74 65 67 | 65 72 20 3a 67 72 6f 75 |e 'integ|er :grou|
|000003c0| 70 20 27 66 39 30 2d 69 | 6e 64 65 6e 74 29 0a 28 |p 'f90-i|ndent).(|
|000003d0| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|000003e0| 61 72 69 61 62 6c 65 20 | 27 66 39 30 2d 69 66 2d |ariable |'f90-if-|
|000003f0| 69 6e 64 65 6e 74 20 27 | 33 20 22 2a 45 78 74 72 |indent '|3 "*Extr|
|00000400| 61 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 61 70 |a indent|ation ap|
|00000410| 70 6c 69 65 64 20 74 6f | 20 49 46 2c 20 53 45 4c |plied to| IF, SEL|
|00000420| 45 43 54 20 43 41 53 45 | 2c 20 57 48 45 52 45 20 |ECT CASE|, WHERE |
|00000430| 61 6e 64 20 46 4f 52 41 | 4c 4c 20 62 6c 6f 63 6b |and FORA|LL block|
|00000440| 73 2e 22 20 3a 74 79 70 | 65 20 27 69 6e 74 65 67 |s." :typ|e 'integ|
|00000450| 65 72 20 3a 67 72 6f 75 | 70 20 27 66 39 30 2d 69 |er :grou|p 'f90-i|
|00000460| 6e 64 65 6e 74 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |ndent).(|custom-d|
|00000470| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00000480| 27 66 39 30 2d 74 79 70 | 65 2d 69 6e 64 65 6e 74 |'f90-typ|e-indent|
|00000490| 20 27 33 20 22 2a 45 78 | 74 72 61 20 69 6e 64 65 | '3 "*Ex|tra inde|
|000004a0| 6e 74 61 74 69 6f 6e 20 | 61 70 70 6c 69 65 64 20 |ntation |applied |
|000004b0| 74 6f 20 54 59 50 45 2c | 20 49 4e 54 45 52 46 41 |to TYPE,| INTERFA|
|000004c0| 43 45 20 61 6e 64 20 42 | 4c 4f 43 4b 20 44 41 54 |CE and B|LOCK DAT|
|000004d0| 41 20 62 6c 6f 63 6b 73 | 2e 22 20 3a 74 79 70 65 |A blocks|." :type|
|000004e0| 20 27 69 6e 74 65 67 65 | 72 20 3a 67 72 6f 75 70 | 'intege|r :group|
|000004f0| 20 27 66 39 30 2d 69 6e | 64 65 6e 74 29 0a 28 63 | 'f90-in|dent).(c|
|00000500| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00000510| 72 69 61 62 6c 65 20 27 | 66 39 30 2d 70 72 6f 67 |riable '|f90-prog|
|00000520| 72 61 6d 2d 69 6e 64 65 | 6e 74 20 27 32 20 22 2a |ram-inde|nt '2 "*|
|00000530| 45 78 74 72 61 20 69 6e | 64 65 6e 74 61 74 69 6f |Extra in|dentatio|
|00000540| 6e 20 61 70 70 6c 69 65 | 64 20 74 6f 20 50 52 4f |n applie|d to PRO|
|00000550| 47 52 41 4d 2f 4d 4f 44 | 55 4c 45 2f 53 55 42 52 |GRAM/MOD|ULE/SUBR|
|00000560| 4f 55 54 49 4e 45 2f 46 | 55 4e 43 54 49 4f 4e 20 |OUTINE/F|UNCTION |
|00000570| 62 6c 6f 63 6b 73 2e 22 | 20 3a 74 79 70 65 20 27 |blocks."| :type '|
|00000580| 69 6e 74 65 67 65 72 20 | 3a 67 72 6f 75 70 20 27 |integer |:group '|
|00000590| 66 39 30 2d 69 6e 64 65 | 6e 74 29 0a 28 63 75 73 |f90-inde|nt).(cus|
|000005a0| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|000005b0| 61 62 6c 65 20 27 66 39 | 30 2d 63 6f 6e 74 69 6e |able 'f9|0-contin|
|000005c0| 75 61 74 69 6f 6e 2d 69 | 6e 64 65 6e 74 20 27 35 |uation-i|ndent '5|
|000005d0| 20 22 2a 45 78 74 72 61 | 20 69 6e 64 65 6e 74 61 | "*Extra| indenta|
|000005e0| 74 69 6f 6e 20 61 70 70 | 6c 69 65 64 20 74 6f 20 |tion app|lied to |
|000005f0| 46 39 30 20 63 6f 6e 74 | 69 6e 75 61 74 69 6f 6e |F90 cont|inuation|
|00000600| 20 6c 69 6e 65 73 2e 22 | 20 3a 74 79 70 65 20 27 | lines."| :type '|
|00000610| 69 6e 74 65 67 65 72 20 | 3a 67 72 6f 75 70 20 27 |integer |:group '|
|00000620| 66 39 30 2d 69 6e 64 65 | 6e 74 29 0a 28 63 75 73 |f90-inde|nt).(cus|
|00000630| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00000640| 61 62 6c 65 20 27 66 39 | 30 2d 63 6f 6d 6d 65 6e |able 'f9|0-commen|
|00000650| 74 2d 72 65 67 69 6f 6e | 20 27 22 21 21 24 22 20 |t-region| '"!!$" |
|00000660| 22 2a 53 74 72 69 6e 67 | 20 69 6e 73 65 72 74 65 |"*String| inserte|
|00000670| 64 20 62 79 20 5c 5c 5b | 66 39 30 2d 63 6f 6d 6d |d by \\[|f90-comm|
|00000680| 65 6e 74 2d 72 65 67 69 | 6f 6e 5d 20 61 74 20 73 |ent-regi|on] at s|
|00000690| 74 61 72 74 20 6f 66 20 | 65 61 63 68 20 6c 69 6e |tart of |each lin|
|000006a0| 65 20 69 6e 20 72 65 67 | 69 6f 6e 2e 22 20 3a 74 |e in reg|ion." :t|
|000006b0| 79 70 65 20 27 73 74 72 | 69 6e 67 20 3a 67 72 6f |ype 'str|ing :gro|
|000006c0| 75 70 20 27 66 39 30 2d | 69 6e 64 65 6e 74 29 0a |up 'f90-|indent).|
|000006d0| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|000006e0| 76 61 72 69 61 62 6c 65 | 20 27 66 39 30 2d 69 6e |variable| 'f90-in|
|000006f0| 64 65 6e 74 65 64 2d 63 | 6f 6d 6d 65 6e 74 2d 72 |dented-c|omment-r|
|00000700| 65 20 27 22 21 22 20 22 | 2a 52 65 67 65 78 70 20 |e '"!" "|*Regexp |
|00000710| 73 61 79 69 6e 67 20 77 | 68 69 63 68 20 63 6f 6d |saying w|hich com|
|00000720| 6d 65 6e 74 73 20 74 6f | 20 62 65 20 69 6e 64 65 |ments to| be inde|
|00000730| 6e 74 65 64 20 6c 69 6b | 65 20 63 6f 64 65 2e 22 |nted lik|e code."|
|00000740| 20 3a 74 79 70 65 20 27 | 72 65 67 65 78 70 20 3a | :type '|regexp :|
|00000750| 67 72 6f 75 70 20 27 66 | 39 30 2d 69 6e 64 65 6e |group 'f|90-inden|
|00000760| 74 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |t).(cust|om-decla|
|00000770| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 66 39 30 |re-varia|ble 'f90|
|00000780| 2d 64 69 72 65 63 74 69 | 76 65 2d 63 6f 6d 6d 65 |-directi|ve-comme|
|00000790| 6e 74 2d 72 65 20 27 22 | 21 68 70 66 5c 5c 24 22 |nt-re '"|!hpf\\$"|
|000007a0| 20 22 2a 52 65 67 65 78 | 70 20 6f 66 20 63 6f 6d | "*Regex|p of com|
|000007b0| 6d 65 6e 74 2d 6c 69 6b | 65 20 64 69 72 65 63 74 |ment-lik|e direct|
|000007c0| 69 76 65 20 6c 69 6b 65 | 20 5c 22 21 48 50 46 5c |ive like| \"!HPF\|
|000007d0| 5c 5c 5c 24 5c 22 2c 20 | 6e 6f 74 20 74 6f 20 62 |\\\$\", |not to b|
|000007e0| 65 20 69 6e 64 65 6e 74 | 65 64 2e 22 20 3a 74 79 |e indent|ed." :ty|
|000007f0| 70 65 20 27 72 65 67 65 | 78 70 20 3a 67 72 6f 75 |pe 'rege|xp :grou|
|00000800| 70 20 27 66 39 30 2d 69 | 6e 64 65 6e 74 29 0a 28 |p 'f90-i|ndent).(|
|00000810| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00000820| 61 72 69 61 62 6c 65 20 | 27 66 39 30 2d 62 65 67 |ariable |'f90-beg|
|00000830| 69 6e 6e 69 6e 67 2d 61 | 6d 70 65 72 73 61 6e 64 |inning-a|mpersand|
|00000840| 20 27 74 20 22 2a 74 20 | 6d 61 6b 65 73 20 61 75 | 't "*t |makes au|
|00000850| 74 6f 6d 61 74 69 63 20 | 69 6e 73 65 72 74 69 6f |tomatic |insertio|
|00000860| 6e 20 6f 66 20 26 20 61 | 74 20 62 65 67 69 6e 6e |n of & a|t beginn|
|00000870| 69 6e 67 20 6f 66 20 63 | 6f 6e 74 69 6e 75 61 74 |ing of c|ontinuat|
|00000880| 69 6f 6e 20 6c 69 6e 65 | 2e 22 20 3a 74 79 70 65 |ion line|." :type|
|00000890| 20 27 62 6f 6f 6c 65 61 | 6e 20 3a 67 72 6f 75 70 | 'boolea|n :group|
|000008a0| 20 27 66 39 30 29 0a 28 | 63 75 73 74 6f 6d 2d 64 | 'f90).(|custom-d|
|000008b0| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|000008c0| 27 66 39 30 2d 73 6d 61 | 72 74 2d 65 6e 64 20 27 |'f90-sma|rt-end '|
|000008d0| 27 62 6c 69 6e 6b 20 22 | 2a 46 72 6f 6d 20 61 6e |'blink "|*From an|
|000008e0| 20 45 4e 44 20 73 74 61 | 74 65 6d 65 6e 74 2c 20 | END sta|tement, |
|000008f0| 63 68 65 63 6b 20 61 6e | 64 20 66 69 6c 6c 20 74 |check an|d fill t|
|00000900| 68 65 20 65 6e 64 20 75 | 73 69 6e 67 20 6d 61 74 |he end u|sing mat|
|00000910| 63 68 69 6e 67 20 62 6c | 6f 63 6b 20 73 74 61 72 |ching bl|ock star|
|00000920| 74 2e 5c 6e 41 6c 6c 6f | 77 65 64 20 76 61 6c 75 |t.\nAllo|wed valu|
|00000930| 65 73 20 61 72 65 20 27 | 62 6c 69 6e 6b 2c 20 27 |es are '|blink, '|
|00000940| 6e 6f 2d 62 6c 69 6e 6b | 2c 20 61 6e 64 20 6e 69 |no-blink|, and ni|
|00000950| 6c 2c 20 77 68 69 63 68 | 20 64 65 74 65 72 6d 69 |l, which| determi|
|00000960| 6e 65 5c 6e 77 68 65 74 | 68 65 72 20 74 6f 20 62 |ne\nwhet|her to b|
|00000970| 6c 69 6e 6b 20 74 68 65 | 20 6d 61 74 63 68 69 6e |link the| matchin|
|00000980| 67 20 62 65 67 69 6e 6e | 69 6e 67 2e 22 20 3a 74 |g beginn|ing." :t|
|00000990| 79 70 65 20 27 28 63 68 | 6f 69 63 65 20 28 63 6f |ype '(ch|oice (co|
|000009a0| 6e 73 74 20 62 6c 69 6e | 6b 29 20 28 63 6f 6e 73 |nst blin|k) (cons|
|000009b0| 74 20 6e 6f 2d 62 6c 69 | 6e 6b 29 20 28 63 6f 6e |t no-bli|nk) (con|
|000009c0| 73 74 20 6e 69 6c 29 29 | 20 3a 67 72 6f 75 70 20 |st nil))| :group |
|000009d0| 27 66 39 30 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |'f90).(c|ustom-de|
|000009e0| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|000009f0| 66 39 30 2d 62 72 65 61 | 6b 2d 64 65 6c 69 6d 69 |f90-brea|k-delimi|
|00000a00| 74 65 72 73 20 27 22 5b | 2d 2b 5c 5c 2a 2f 3e 3c |ters '"[|-+\\*/><|
|00000a10| 3d 2c 25 20 09 5d 22 20 | 22 2a 52 65 67 65 78 70 |=,% .]" |"*Regexp|
|00000a20| 20 68 6f 6c 64 69 6e 67 | 20 6c 69 73 74 20 6f 66 | holding| list of|
|00000a30| 20 64 65 6c 69 6d 69 74 | 65 72 73 20 61 74 20 77 | delimit|ers at w|
|00000a40| 68 69 63 68 20 6c 69 6e | 65 73 20 6d 61 79 20 62 |hich lin|es may b|
|00000a50| 65 20 62 72 6f 6b 65 6e | 2e 22 20 3a 74 79 70 65 |e broken|." :type|
|00000a60| 20 27 72 65 67 65 78 70 | 20 3a 67 72 6f 75 70 20 | 'regexp| :group |
|00000a70| 27 66 39 30 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |'f90).(c|ustom-de|
|00000a80| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00000a90| 66 39 30 2d 62 72 65 61 | 6b 2d 62 65 66 6f 72 65 |f90-brea|k-before|
|00000aa0| 2d 64 65 6c 69 6d 69 74 | 65 72 73 20 27 74 20 22 |-delimit|ers 't "|
|00000ab0| 2a 4e 6f 6e 2d 6e 69 6c | 20 63 61 75 73 65 73 20 |*Non-nil| causes |
|00000ac0| 60 66 39 30 2d 64 6f 2d | 61 75 74 6f 2d 66 69 6c |`f90-do-|auto-fil|
|00000ad0| 6c 27 20 74 6f 20 62 72 | 65 61 6b 20 6c 69 6e 65 |l' to br|eak line|
|00000ae0| 73 20 62 65 66 6f 72 65 | 20 64 65 6c 69 6d 69 74 |s before| delimit|
|00000af0| 65 72 73 2e 22 20 3a 74 | 79 70 65 20 27 72 65 67 |ers." :t|ype 'reg|
|00000b00| 65 78 70 20 3a 67 72 6f | 75 70 20 27 66 39 30 29 |exp :gro|up 'f90)|
|00000b10| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|00000b20| 2d 76 61 72 69 61 62 6c | 65 20 27 66 39 30 2d 61 |-variabl|e 'f90-a|
|00000b30| 75 74 6f 2d 6b 65 79 77 | 6f 72 64 2d 63 61 73 65 |uto-keyw|ord-case|
|00000b40| 20 27 6e 69 6c 20 22 2a | 41 75 74 6f 6d 61 74 69 | 'nil "*|Automati|
|00000b50| 63 20 63 61 73 65 20 63 | 6f 6e 76 65 72 73 69 6f |c case c|onversio|
|00000b60| 6e 20 6f 66 20 6b 65 79 | 77 6f 72 64 73 2e 5c 6e |n of key|words.\n|
|00000b70| 20 20 54 68 65 20 6f 70 | 74 69 6f 6e 73 20 61 72 |  The op|tions ar|
|00000b80| 65 20 27 64 6f 77 6e 63 | 61 73 65 2d 77 6f 72 64 |e 'downc|ase-word|
|00000b90| 2c 20 27 75 70 63 61 73 | 65 2d 77 6f 72 64 2c 20 |, 'upcas|e-word, |
|00000ba0| 27 63 61 70 69 74 61 6c | 69 7a 65 2d 77 6f 72 64 |'capital|ize-word|
|00000bb0| 20 61 6e 64 20 6e 69 6c | 22 20 3a 74 79 70 65 20 | and nil|" :type |
|00000bc0| 27 28 63 68 6f 69 63 65 | 20 28 63 6f 6e 73 74 20 |'(choice| (const |
|00000bd0| 64 6f 77 6e 63 61 73 65 | 2d 77 6f 72 64 29 20 28 |downcase|-word) (|
|00000be0| 63 6f 6e 73 74 20 75 70 | 63 61 73 65 2d 77 6f 72 |const up|case-wor|
|00000bf0| 64 29 20 28 63 6f 6e 73 | 74 20 63 61 70 69 74 61 |d) (cons|t capita|
|00000c00| 6c 69 7a 65 2d 77 6f 72 | 64 29 20 28 63 6f 6e 73 |lize-wor|d) (cons|
|00000c10| 74 20 6e 69 6c 29 29 20 | 3a 67 72 6f 75 70 20 27 |t nil)) |:group '|
|00000c20| 66 39 30 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |f90).(cu|stom-dec|
|00000c30| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 66 |lare-var|iable 'f|
|00000c40| 39 30 2d 6c 65 61 76 65 | 2d 6c 69 6e 65 2d 6e 6f |90-leave|-line-no|
|00000c50| 20 27 6e 69 6c 20 22 2a | 49 66 20 6e 69 6c 2c 20 | 'nil "*|If nil, |
|00000c60| 6c 65 66 74 2d 6a 75 73 | 74 69 66 79 20 6c 69 6e |left-jus|tify lin|
|00000c70| 65 6e 75 6d 62 65 72 73 | 2e 22 20 3a 74 79 70 65 |enumbers|." :type|
|00000c80| 20 27 62 6f 6f 6c 65 61 | 6e 20 3a 67 72 6f 75 70 | 'boolea|n :group|
|00000c90| 20 27 66 39 30 29 0a 28 | 63 75 73 74 6f 6d 2d 64 | 'f90).(|custom-d|
|00000ca0| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00000cb0| 27 66 39 30 2d 73 74 61 | 72 74 75 70 2d 6d 65 73 |'f90-sta|rtup-mes|
|00000cc0| 73 61 67 65 20 27 74 20 | 22 2a 4e 6f 6e 2d 6e 69 |sage 't |"*Non-ni|
|00000cd0| 6c 20 64 69 73 70 6c 61 | 79 73 20 61 20 73 74 61 |l displa|ys a sta|
|00000ce0| 72 74 75 70 20 6d 65 73 | 73 61 67 65 20 77 68 65 |rtup mes|sage whe|
|00000cf0| 6e 20 46 39 30 20 6d 6f | 64 65 20 69 73 20 66 69 |n F90 mo|de is fi|
|00000d00| 72 73 74 20 63 61 6c 6c | 65 64 2e 22 20 3a 74 79 |rst call|ed." :ty|
|00000d10| 70 65 20 27 62 6f 6f 6c | 65 61 6e 20 3a 67 72 6f |pe 'bool|ean :gro|
|00000d20| 75 70 20 27 66 39 30 29 | 0a 23 40 32 36 20 52 65 |up 'f90)|.#@26 Re|
|00000d30| 67 65 78 70 20 66 6f 72 | 20 46 39 30 20 6b 65 79 |gexp for| F90 key|
|00000d40| 77 6f 72 64 73 2e 1f 0a | 28 64 65 66 63 6f 6e 73 |words...|(defcons|
|00000d50| 74 20 66 39 30 2d 6b 65 | 79 77 6f 72 64 73 2d 72 |t f90-ke|ywords-r|
|00000d60| 65 20 28 63 6f 6e 63 61 | 74 20 22 5c 5c 3c 5c 5c |e (conca|t "\\<\\|
|00000d70| 28 61 5c 5c 28 6c 6c 6f | 63 61 74 5c 5c 28 61 62 |(a\\(llo|cat\\(ab|
|00000d80| 6c 65 5c 5c 7c 65 5c 5c | 29 5c 5c 7c 73 73 69 67 |le\\|e\\|)\\|ssig|
|00000d90| 6e 5c 5c 28 5c 5c 7c 6d | 65 6e 74 5c 5c 29 5c 5c |n\\(\\|m|ent\\)\\|
|00000da0| 29 5c 5c 7c 62 5c 5c 28 | 61 63 6b 73 70 61 63 65 |)\\|b\\(|ackspace|
|00000db0| 5c 5c 7c 22 20 22 6c 6f | 63 6b 5c 5c 29 5c 5c 7c |\\|" "lo|ck\\)\\||
|00000dc0| 63 5c 5c 28 61 5c 5c 28 | 6c 6c 5c 5c 7c 73 65 5c |c\\(a\\(|ll\\|se\|
|00000dd0| 5c 29 5c 5c 7c 68 61 72 | 61 63 74 65 72 5c 5c 7c |\)\\|har|acter\\||
|00000de0| 6c 6f 73 65 5c 5c 7c 6f | 5c 5c 28 6d 5c 5c 28 6d |lose\\|o|\\(m\\(m|
|00000df0| 6f 6e 5c 5c 7c 70 6c 65 | 78 5c 5c 29 5c 5c 7c 22 |on\\|ple|x\\)\\|"|
|00000e00| 20 22 6e 74 5c 5c 28 61 | 69 6e 73 5c 5c 7c 69 6e | "nt\\(a|ins\\|in|
|00000e10| 75 65 5c 5c 29 5c 5c 29 | 5c 5c 7c 79 63 6c 65 5c |ue\\)\\)|\\|ycle\|
|00000e20| 5c 29 5c 5c 7c 64 5c 5c | 28 61 74 61 5c 5c 7c 65 |\)\\|d\\|(ata\\|e|
|00000e30| 61 6c 6c 6f 63 61 74 65 | 5c 5c 7c 69 6d 65 6e 73 |allocate|\\|imens|
|00000e40| 69 6f 6e 5c 5c 7c 22 20 | 22 6f 5c 5c 28 5c 5c 7c |ion\\|" |"o\\(\\||
|00000e50| 75 62 6c 65 5c 5c 29 5c | 5c 29 5c 5c 7c 65 5c 5c |uble\\)\|\)\\|e\\|
|00000e60| 28 6c 73 65 5c 5c 28 5c | 5c 7c 69 66 5c 5c 7c 77 |(lse\\(\|\|if\\|w|
|00000e70| 68 65 72 65 5c 5c 29 5c | 5c 7c 6e 5c 5c 28 64 5c |here\\)\|\|n\\(d\|
|00000e80| 5c 28 5c 5c 7c 64 6f 5c | 5c 7c 66 69 6c 65 5c 5c |\(\\|do\|\|file\\|
|00000e90| 7c 22 20 22 69 66 5c 5c | 29 5c 5c 7c 74 72 79 5c ||" "if\\|)\\|try\|
|00000ea0| 5c 29 5c 5c 7c 71 75 69 | 76 61 6c 65 6e 63 65 5c |\)\\|qui|valence\|
|00000eb0| 5c 7c 78 5c 5c 28 69 74 | 5c 5c 7c 74 65 72 6e 61 |\|x\\(it|\\|terna|
|00000ec0| 6c 5c 5c 29 5c 5c 29 5c | 5c 7c 66 5c 5c 28 6f 72 |l\\)\\)\|\|f\\(or|
|00000ed0| 5c 5c 28 61 6c 6c 5c 5c | 7c 22 20 22 6d 61 74 5c |\\(all\\||" "mat\|
|00000ee0| 5c 29 5c 5c 7c 75 6e 63 | 74 69 6f 6e 5c 5c 29 5c |\)\\|unc|tion\\)\|
|00000ef0| 5c 7c 67 6f 74 6f 5c 5c | 7c 69 5c 5c 28 66 5c 5c |\|goto\\||i\\(f\\|
|00000f00| 7c 6d 70 6c 69 63 69 74 | 5c 5c 7c 6e 5c 5c 28 63 ||mplicit|\\|n\\(c|
|00000f10| 6c 75 64 65 5c 5c 7c 71 | 75 69 72 65 5c 5c 7c 74 |lude\\|q|uire\\|t|
|00000f20| 5c 5c 28 22 20 22 65 5c | 5c 28 67 65 72 5c 5c 7c |\\(" "e\|\(ger\\||
|00000f30| 6e 74 5c 5c 7c 72 66 61 | 63 65 5c 5c 29 5c 5c 7c |nt\\|rfa|ce\\)\\||
|00000f40| 72 69 6e 73 69 63 5c 5c | 29 5c 5c 29 5c 5c 29 5c |rinsic\\|)\\)\\)\|
|00000f50| 5c 7c 6c 6f 67 69 63 61 | 6c 5c 5c 7c 6d 6f 64 75 |\|logica|l\\|modu|
|00000f60| 6c 65 5c 5c 7c 6e 5c 5c | 28 22 20 22 61 6d 65 6c |le\\|n\\|(" "amel|
|00000f70| 69 73 74 5c 5c 7c 6f 6e | 65 5c 5c 7c 75 6c 6c 69 |ist\\|on|e\\|ulli|
|00000f80| 66 79 5c 5c 29 5c 5c 7c | 6f 5c 5c 28 6e 6c 79 5c |fy\\)\\||o\\(nly\|
|00000f90| 5c 7c 70 5c 5c 28 65 6e | 5c 5c 7c 65 72 61 74 6f |\|p\\(en|\\|erato|
|00000fa0| 72 5c 5c 7c 74 69 6f 6e | 61 6c 5c 5c 29 5c 5c 29 |r\\|tion|al\\)\\)|
|00000fb0| 5c 5c 7c 70 5c 5c 28 61 | 5c 5c 28 22 20 22 72 61 |\\|p\\(a|\\(" "ra|
|00000fc0| 6d 65 74 65 72 5c 5c 7c | 75 73 65 5c 5c 29 5c 5c |meter\\||use\\)\\|
|00000fd0| 7c 6f 69 6e 74 65 72 5c | 5c 7c 72 5c 5c 28 65 63 ||ointer\|\|r\\(ec|
|00000fe0| 69 73 69 6f 6e 5c 5c 7c | 69 5c 5c 28 6e 74 5c 5c |ision\\||i\\(nt\\|
|00000ff0| 7c 76 61 74 65 5c 5c 29 | 5c 5c 7c 6f 5c 5c 28 22 ||vate\\)|\\|o\\("|
|00001000| 20 22 63 65 64 75 72 65 | 5c 5c 7c 67 72 61 6d 5c | "cedure|\\|gram\|
|00001010| 5c 29 5c 5c 29 5c 5c 7c | 75 62 6c 69 63 5c 5c 29 |\)\\)\\||ublic\\)|
|00001020| 5c 5c 7c 72 65 5c 5c 28 | 61 5b 64 6c 5d 5c 5c 7c |\\|re\\(|a[dl]\\||
|00001030| 63 75 72 73 69 76 65 5c | 5c 7c 73 75 6c 74 5c 5c |cursive\|\|sult\\|
|00001040| 7c 74 75 72 6e 5c 5c 7c | 77 69 6e 64 5c 5c 29 5c ||turn\\||wind\\)\|
|00001050| 5c 7c 22 20 22 73 5c 5c | 28 61 76 65 5c 5c 7c 65 |\|" "s\\|(ave\\|e|
|00001060| 5c 5c 28 6c 65 63 74 5c | 5c 7c 71 75 65 6e 63 65 |\\(lect\|\|quence|
|00001070| 5c 5c 29 5c 5c 7c 74 6f | 70 5c 5c 7c 75 62 72 6f |\\)\\|to|p\\|ubro|
|00001080| 75 74 69 6e 65 5c 5c 29 | 5c 5c 7c 74 5c 5c 28 61 |utine\\)|\\|t\\(a|
|00001090| 72 67 65 74 5c 5c 7c 68 | 65 6e 5c 5c 7c 22 20 22 |rget\\|h|en\\|" "|
|000010a0| 79 70 65 5c 5c 29 5c 5c | 7c 75 73 65 5c 5c 7c 77 |ype\\)\\||use\\|w|
|000010b0| 5c 5c 28 68 5c 5c 28 65 | 72 65 5c 5c 7c 69 6c 65 |\\(h\\(e|re\\|ile|
|000010c0| 5c 5c 29 5c 5c 7c 72 69 | 74 65 5c 5c 29 5c 5c 29 |\\)\\|ri|te\\)\\)|
|000010d0| 5c 5c 3e 22 29 20 28 23 | 24 20 2e 20 33 33 37 34 |\\>") (#|$ . 3374|
|000010e0| 29 29 0a 23 40 34 32 20 | 4b 65 79 77 6f 72 64 2d |)).#@42 |Keyword-|
|000010f0| 72 65 67 65 78 70 20 66 | 6f 72 20 66 6f 6e 74 2d |regexp f|or font-|
|00001100| 6c 6f 63 6b 20 6c 65 76 | 65 6c 20 3e 3d 20 33 2e |lock lev|el >= 3.|
|00001110| 1f 0a 28 64 65 66 63 6f | 6e 73 74 20 66 39 30 2d |..(defco|nst f90-|
|00001120| 6b 65 79 77 6f 72 64 73 | 2d 6c 65 76 65 6c 2d 33 |keywords|-level-3|
|00001130| 2d 72 65 20 28 63 6f 6e | 63 61 74 20 22 5c 5c 3c |-re (con|cat "\\<|
|00001140| 5c 5c 28 61 5c 5c 28 6c | 6c 6f 63 61 74 5c 5c 28 |\\(a\\(l|locat\\(|
|00001150| 61 62 6c 65 5c 5c 7c 65 | 5c 5c 29 5c 5c 7c 73 73 |able\\|e|\\)\\|ss|
|00001160| 69 67 6e 5c 5c 28 5c 5c | 7c 6d 65 6e 74 5c 5c 29 |ign\\(\\||ment\\)|
|00001170| 5c 5c 29 5c 5c 7c 62 61 | 63 6b 73 70 61 63 65 5c |\\)\\|ba|ckspace\|
|00001180| 5c 7c 22 20 22 63 6c 6f | 73 65 5c 5c 7c 64 5c 5c |\|" "clo|se\\|d\\|
|00001190| 28 65 61 6c 6c 6f 63 61 | 74 65 5c 5c 7c 69 6d 65 |(ealloca|te\\|ime|
|000011a0| 6e 73 69 6f 6e 5c 5c 29 | 5c 5c 7c 65 5c 5c 28 6e |nsion\\)|\\|e\\(n|
|000011b0| 5c 5c 28 64 66 69 6c 65 | 5c 5c 7c 74 72 79 5c 5c |\\(dfile|\\|try\\|
|000011c0| 29 5c 5c 7c 22 20 22 71 | 75 69 76 61 6c 65 6e 63 |)\\|" "q|uivalenc|
|000011d0| 65 5c 5c 7c 78 74 65 72 | 6e 61 6c 5c 5c 29 5c 5c |e\\|xter|nal\\)\\|
|000011e0| 7c 22 20 22 69 6e 5c 5c | 28 71 75 69 72 65 5c 5c ||" "in\\|(quire\\|
|000011f0| 7c 74 5c 5c 28 65 6e 74 | 5c 5c 7c 72 69 6e 73 69 ||t\\(ent|\\|rinsi|
|00001200| 63 5c 5c 29 5c 5c 29 5c | 5c 7c 6e 75 6c 6c 69 66 |c\\)\\)\|\|nullif|
|00001210| 79 5c 5c 7c 22 20 22 6f | 5c 5c 28 6e 6c 79 5c 5c |y\\|" "o|\\(nly\\|
|00001220| 7c 70 5c 5c 28 65 6e 5c | 5c 7c 65 72 61 74 6f 72 ||p\\(en\|\|erator|
|00001230| 5c 5c 7c 74 69 6f 6e 61 | 6c 5c 5c 29 5c 5c 29 5c |\\|tiona|l\\)\\)\|
|00001240| 5c 7c 22 20 22 70 5c 5c | 28 61 5c 5c 28 72 61 6d |\|" "p\\|(a\\(ram|
|00001250| 65 74 65 72 5c 5c 7c 75 | 73 65 5c 5c 29 5c 5c 7c |eter\\|u|se\\)\\||
|00001260| 6f 69 6e 74 65 72 5c 5c | 7c 72 69 5c 5c 28 6e 74 |ointer\\||ri\\(nt|
|00001270| 5c 5c 7c 76 61 74 65 5c | 5c 29 5c 5c 7c 75 62 6c |\\|vate\|\)\\|ubl|
|00001280| 69 63 5c 5c 29 5c 5c 7c | 72 65 5c 5c 28 22 20 22 |ic\\)\\||re\\(" "|
|00001290| 61 64 5c 5c 7c 63 75 72 | 73 69 76 65 5c 5c 7c 73 |ad\\|cur|sive\\|s|
|000012a0| 75 6c 74 5c 5c 7c 77 69 | 6e 64 5c 5c 29 5c 5c 7c |ult\\|wi|nd\\)\\||
|000012b0| 73 5c 5c 28 61 76 65 5c | 5c 7c 65 5c 5c 28 6c 65 |s\\(ave\|\|e\\(le|
|000012c0| 63 74 5c 5c 7c 71 75 65 | 6e 63 65 5c 5c 29 5c 5c |ct\\|que|nce\\)\\|
|000012d0| 29 5c 5c 7c 74 61 72 67 | 65 74 5c 5c 7c 22 20 22 |)\\|targ|et\\|" "|
|000012e0| 77 72 69 74 65 5c 5c 29 | 5c 5c 3e 22 29 20 28 23 |write\\)|\\>") (#|
|000012f0| 24 20 2e 20 34 33 32 38 | 29 29 0a 23 40 35 39 20 |$ . 4328|)).#@59 |
|00001300| 52 65 67 65 78 70 20 77 | 68 6f 73 65 20 66 69 72 |Regexp w|hose fir|
|00001310| 73 74 20 70 61 72 74 20 | 6d 61 74 63 68 65 73 20 |st part |matches |
|00001320| 46 39 30 20 69 6e 74 72 | 69 6e 73 69 63 20 70 72 |F90 intr|insic pr|
|00001330| 6f 63 65 64 75 72 65 73 | 2e 1f 0a 28 64 65 66 63 |ocedures|...(defc|
|00001340| 6f 6e 73 74 20 66 39 30 | 2d 70 72 6f 63 65 64 75 |onst f90|-procedu|
|00001350| 72 65 73 2d 72 65 20 28 | 63 6f 6e 63 61 74 20 22 |res-re (|concat "|
|00001360| 5c 5c 3c 5c 5c 28 61 5c | 5c 28 62 73 5c 5c 7c 63 |\\<\\(a\|\(bs\\|c|
|00001370| 5c 5c 28 68 61 72 5c 5c | 7c 6f 73 5c 5c 29 5c 5c |\\(har\\||os\\)\\|
|00001380| 7c 64 6a 75 73 74 5b 6c | 72 5d 5c 5c 7c 69 5c 5c ||djust[l|r]\\|i\\|
|00001390| 28 6d 61 67 5c 5c 7c 6e | 74 5c 5c 29 5c 5c 7c 6c |(mag\\|n|t\\)\\|l|
|000013a0| 6c 5c 5c 28 5c 5c 7c 22 | 20 22 6f 63 61 74 65 64 |l\\(\\|"| "ocated|
|000013b0| 5c 5c 29 5c 5c 7c 6e 5c | 5c 28 69 6e 74 5c 5c 7c |\\)\\|n\|\(int\\||
|000013c0| 79 5c 5c 29 5c 5c 7c 73 | 5c 5c 28 69 6e 5c 5c 7c |y\\)\\|s|\\(in\\||
|000013d0| 73 6f 63 69 61 74 65 64 | 5c 5c 29 5c 5c 7c 74 61 |sociated|\\)\\|ta|
|000013e0| 6e 32 3f 5c 5c 29 5c 5c | 7c 62 5c 5c 28 22 20 22 |n2?\\)\\||b\\(" "|
|000013f0| 69 74 5f 73 69 7a 65 5c | 5c 7c 74 65 73 74 5c 5c |it_size\|\|test\\|
|00001400| 29 5c 5c 7c 63 5c 5c 28 | 65 69 6c 69 6e 67 5c 5c |)\\|c\\(|eiling\\|
|00001410| 7c 68 61 72 5c 5c 7c 6d | 70 6c 78 5c 5c 7c 6f 5c ||har\\|m|plx\\|o\|
|00001420| 5c 28 6e 6a 67 5c 5c 7c | 73 68 3f 5c 5c 7c 75 6e |\(njg\\||sh?\\|un|
|00001430| 74 5c 5c 29 5c 5c 7c 22 | 20 22 73 68 69 66 74 5c |t\\)\\|"| "shift\|
|00001440| 5c 29 5c 5c 7c 64 5c 5c | 28 61 74 65 5f 61 6e 64 |\)\\|d\\|(ate_and|
|00001450| 5f 74 69 6d 65 5c 5c 7c | 62 6c 65 5c 5c 7c 69 5c |_time\\||ble\\|i\|
|00001460| 5c 28 67 69 74 73 5c 5c | 7c 6d 5c 5c 29 5c 5c 7c |\(gits\\||m\\)\\||
|00001470| 6f 74 5f 70 72 6f 64 75 | 63 74 5c 5c 7c 70 72 6f |ot_produ|ct\\|pro|
|00001480| 64 22 20 22 5c 5c 29 5c | 5c 7c 65 5c 5c 28 6f 73 |d" "\\)\|\|e\\(os|
|00001490| 68 69 66 74 5c 5c 7c 70 | 73 69 6c 6f 6e 5c 5c 7c |hift\\|p|silon\\||
|000014a0| 78 70 5c 5c 28 5c 5c 7c | 6f 6e 65 6e 74 5c 5c 29 |xp\\(\\||onent\\)|
|000014b0| 5c 5c 29 5c 5c 7c 66 5c | 5c 28 6c 6f 6f 72 5c 5c |\\)\\|f\|\(loor\\|
|000014c0| 7c 22 20 22 72 61 63 74 | 69 6f 6e 5c 5c 29 5c 5c ||" "ract|ion\\)\\|
|000014d0| 7c 68 75 67 65 5c 5c 7c | 69 5c 5c 28 61 5c 5c 28 ||huge\\||i\\(a\\(|
|000014e0| 63 68 61 72 5c 5c 7c 6e | 64 5c 5c 29 5c 5c 7c 62 |char\\|n|d\\)\\|b|
|000014f0| 5c 5c 28 63 6c 72 5c 5c | 7c 69 74 73 5c 5c 7c 73 |\\(clr\\||its\\|s|
|00001500| 65 74 5c 5c 29 5c 5c 7c | 22 20 22 63 68 61 72 5c |et\\)\\||" "char\|
|00001510| 5c 7c 65 6f 72 5c 5c 7c | 6e 5c 5c 28 64 65 78 5c |\|eor\\||n\\(dex\|
|00001520| 5c 7c 74 5c 5c 29 5c 5c | 7c 6f 72 5c 5c 7c 73 68 |\|t\\)\\||or\\|sh|
|00001530| 66 74 63 3f 5c 5c 29 5c | 5c 7c 6b 69 6e 64 5c 5c |ftc?\\)\|\|kind\\|
|00001540| 7c 6c 5c 5c 28 62 6f 75 | 6e 64 5c 5c 7c 22 20 22 ||l\\(bou|nd\\|" "|
|00001550| 65 6e 5c 5c 28 5c 5c 7c | 5f 74 72 69 6d 5c 5c 29 |en\\(\\||_trim\\)|
|00001560| 5c 5c 7c 67 5b 65 74 5d | 5c 5c 7c 6c 5b 65 74 5d |\\|g[et]|\\|l[et]|
|00001570| 5c 5c 7c 6f 67 5c 5c 28 | 5c 5c 7c 31 30 5c 5c 7c |\\|og\\(|\\|10\\||
|00001580| 69 63 61 6c 5c 5c 29 5c | 5c 29 5c 5c 7c 6d 5c 5c |ical\\)\|\)\\|m\\|
|00001590| 28 61 5c 5c 28 22 20 22 | 74 6d 75 6c 5c 5c 7c 78 |(a\\(" "|tmul\\|x|
|000015a0| 5c 5c 28 5c 5c 7c 65 78 | 70 6f 6e 65 6e 74 5c 5c |\\(\\|ex|ponent\\|
|000015b0| 7c 6c 6f 63 5c 5c 7c 76 | 61 6c 5c 5c 29 5c 5c 29 ||loc\\|v|al\\)\\)|
|000015c0| 5c 5c 7c 65 72 67 65 5c | 5c 7c 69 6e 5c 5c 28 5c |\\|erge\|\|in\\(\|
|000015d0| 5c 7c 65 78 70 6f 6e 65 | 6e 74 5c 5c 7c 22 20 22 |\|expone|nt\\|" "|
|000015e0| 6c 6f 63 5c 5c 7c 76 61 | 6c 5c 5c 29 5c 5c 7c 6f |loc\\|va|l\\)\\|o|
|000015f0| 64 5c 5c 28 5c 5c 7c 75 | 6c 6f 5c 5c 29 5c 5c 7c |d\\(\\|u|lo\\)\\||
|00001600| 76 62 69 74 73 5c 5c 29 | 5c 5c 7c 6e 5c 5c 28 65 |vbits\\)|\\|n\\(e|
|00001610| 61 72 65 73 74 5c 5c 7c | 69 6e 74 5c 5c 7c 6f 74 |arest\\||int\\|ot|
|00001620| 5c 5c 29 5c 5c 7c 22 20 | 22 70 5c 5c 28 61 63 6b |\\)\\|" |"p\\(ack|
|00001630| 5c 5c 7c 72 5c 5c 28 65 | 5c 5c 28 63 69 73 69 6f |\\|r\\(e|\\(cisio|
|00001640| 6e 5c 5c 7c 73 65 6e 74 | 5c 5c 29 5c 5c 7c 6f 64 |n\\|sent|\\)\\|od|
|00001650| 75 63 74 5c 5c 29 5c 5c | 29 5c 5c 7c 72 5c 5c 28 |uct\\)\\|)\\|r\\(|
|00001660| 61 5c 5c 28 64 69 78 5c | 5c 7c 6e 5c 5c 28 22 20 |a\\(dix\|\|n\\(" |
|00001670| 22 64 6f 6d 5f 5c 5c 28 | 6e 75 6d 62 65 72 5c 5c |"dom_\\(|number\\|
|00001680| 7c 73 65 65 64 5c 5c 29 | 5c 5c 7c 67 65 5c 5c 29 ||seed\\)|\\|ge\\)|
|00001690| 5c 5c 29 5c 5c 7c 65 5c | 5c 28 70 65 61 74 5c 5c |\\)\\|e\|\(peat\\|
|000016a0| 7c 73 68 61 70 65 5c 5c | 29 5c 5c 7c 72 73 70 61 ||shape\\|)\\|rspa|
|000016b0| 63 69 6e 67 5c 5c 29 5c | 5c 7c 22 20 22 73 5c 5c |cing\\)\|\|" "s\\|
|000016c0| 28 63 61 5c 5c 28 6c 65 | 5c 5c 7c 6e 5c 5c 29 5c |(ca\\(le|\\|n\\)\|
|000016d0| 5c 7c 65 5c 5c 28 6c 65 | 63 74 65 64 5f 5c 5c 28 |\|e\\(le|cted_\\(|
|000016e0| 69 6e 74 5f 6b 69 6e 64 | 5c 5c 7c 72 65 61 6c 5f |int_kind|\\|real_|
|000016f0| 6b 69 6e 64 5c 5c 29 5c | 5c 7c 22 20 22 74 5f 65 |kind\\)\|\|" "t_e|
|00001700| 78 70 6f 6e 65 6e 74 5c | 5c 29 5c 5c 7c 68 61 70 |xponent\|\)\\|hap|
|00001710| 65 5c 5c 7c 69 5c 5c 28 | 67 6e 5c 5c 7c 6e 68 3f |e\\|i\\(|gn\\|nh?|
|00001720| 5c 5c 7c 7a 65 5c 5c 29 | 5c 5c 7c 70 5c 5c 28 61 |\\|ze\\)|\\|p\\(a|
|00001730| 63 69 6e 67 5c 5c 7c 72 | 65 61 64 5c 5c 29 5c 5c |cing\\|r|ead\\)\\|
|00001740| 7c 22 20 22 71 72 74 5c | 5c 7c 75 6d 5c 5c 7c 79 ||" "qrt\|\|um\\|y|
|00001750| 73 74 65 6d 5f 63 6c 6f | 63 6b 5c 5c 29 5c 5c 7c |stem_clo|ck\\)\\||
|00001760| 74 5c 5c 28 61 6e 68 3f | 5c 5c 7c 69 6e 79 5c 5c |t\\(anh?|\\|iny\\|
|00001770| 7c 72 5c 5c 28 61 6e 73 | 5c 5c 28 66 65 72 5c 5c ||r\\(ans|\\(fer\\|
|00001780| 7c 70 6f 73 65 5c 5c 29 | 5c 5c 7c 22 20 22 69 6d ||pose\\)|\\|" "im|
|00001790| 5c 5c 29 5c 5c 29 5c 5c | 7c 75 5c 5c 28 62 6f 75 |\\)\\)\\||u\\(bou|
|000017a0| 6e 64 5c 5c 7c 6e 70 61 | 63 6b 5c 5c 29 5c 5c 7c |nd\\|npa|ck\\)\\||
|000017b0| 76 65 72 69 66 79 5c 5c | 29 5b 20 09 5d 2a 28 22 |verify\\|)[ .]*("|
|000017c0| 29 20 28 23 24 20 2e 20 | 34 38 36 34 29 29 0a 23 |) (#$ . |4864)).#|
|000017d0| 40 33 38 20 52 65 67 65 | 78 70 20 6d 61 74 63 68 |@38 Rege|xp match|
|000017e0| 69 6e 67 20 69 6e 74 72 | 69 6e 73 69 63 20 6f 70 |ing intr|insic op|
|000017f0| 65 72 61 74 6f 72 73 2e | 1f 0a 28 64 65 66 63 6f |erators.|..(defco|
|00001800| 6e 73 74 20 66 39 30 2d | 6f 70 65 72 61 74 6f 72 |nst f90-|operator|
|00001810| 73 2d 72 65 20 28 63 6f | 6e 63 61 74 20 22 5c 5c |s-re (co|ncat "\\|
|00001820| 2e 5c 5c 28 61 6e 64 5c | 5c 7c 65 71 76 3f 5c 5c |.\\(and\|\|eqv?\\|
|00001830| 7c 66 61 6c 73 65 5c 5c | 7c 67 5b 65 74 5d 5c 5c ||false\\||g[et]\\|
|00001840| 7c 6c 5b 65 74 5d 5c 5c | 7c 6e 5c 5c 28 65 5c 5c ||l[et]\\||n\\(e\\|
|00001850| 28 5c 5c 7c 71 76 5c 5c | 29 5c 5c 7c 22 20 22 6f |(\\|qv\\|)\\|" "o|
|00001860| 74 5c 5c 29 5c 5c 7c 6f | 72 5c 5c 7c 74 72 75 65 |t\\)\\|o|r\\|true|
|00001870| 5c 5c 29 5c 5c 2e 22 29 | 20 28 23 24 20 2e 20 36 |\\)\\.")| (#$ . 6|
|00001880| 31 30 30 29 29 0a 23 40 | 35 37 20 52 65 67 65 78 |100)).#@|57 Regex|
|00001890| 70 20 66 6f 72 20 61 6c | 6c 20 48 50 46 20 6b 65 |p for al|l HPF ke|
|000018a0| 79 77 6f 72 64 73 2c 20 | 70 72 6f 63 65 64 75 72 |ywords, |procedur|
|000018b0| 65 73 20 61 6e 64 20 64 | 69 72 65 63 74 69 76 65 |es and d|irective|
|000018c0| 73 2e 1f 0a 28 64 65 66 | 63 6f 6e 73 74 20 66 39 |s...(def|const f9|
|000018d0| 30 2d 68 70 66 2d 6b 65 | 79 77 6f 72 64 73 2d 72 |0-hpf-ke|ywords-r|
|000018e0| 65 20 28 63 6f 6e 63 61 | 74 20 22 5c 5c 3c 5c 5c |e (conca|t "\\<\\|
|000018f0| 28 61 5c 5c 28 6c 5c 5c | 28 69 67 6e 5c 5c 7c 6c |(a\\(l\\|(ign\\|l|
|00001900| 5f 5c 5c 28 70 72 65 66 | 69 78 5c 5c 7c 73 5c 5c |_\\(pref|ix\\|s\\|
|00001910| 28 63 61 74 74 65 72 5c | 5c 7c 75 66 66 69 78 5c |(catter\|\|uffix\|
|00001920| 5c 29 5c 5c 29 5c 5c 29 | 5c 5c 7c 6e 79 5f 5c 5c |\)\\)\\)|\\|ny_\\|
|00001930| 28 22 20 22 70 72 65 66 | 69 78 5c 5c 7c 73 5c 5c |(" "pref|ix\\|s\\|
|00001940| 28 63 61 74 74 65 72 5c | 5c 7c 75 66 66 69 78 5c |(catter\|\|uffix\|
|00001950| 5c 29 5c 5c 29 5c 5c 29 | 5c 5c 7c 62 6c 6f 63 6b |\)\\)\\)|\\|block|
|00001960| 5c 5c 7c 63 5c 5c 28 6f | 5c 5c 28 70 79 5f 5c 5c |\\|c\\(o|\\(py_\\|
|00001970| 28 70 72 65 66 69 78 5c | 5c 7c 22 20 22 73 5c 5c |(prefix\|\|" "s\\|
|00001980| 28 63 61 74 74 65 72 5c | 5c 7c 75 66 66 69 78 5c |(catter\|\|uffix\|
|00001990| 5c 29 5c 5c 29 5c 5c 7c | 75 6e 74 5f 5c 5c 28 70 |\)\\)\\||unt_\\(p|
|000019a0| 72 65 66 69 78 5c 5c 7c | 73 5c 5c 28 63 61 74 74 |refix\\||s\\(catt|
|000019b0| 65 72 5c 5c 7c 75 66 66 | 69 78 5c 5c 29 5c 5c 29 |er\\|uff|ix\\)\\)|
|000019c0| 5c 5c 29 5c 5c 7c 22 20 | 22 79 63 6c 69 63 5c 5c |\\)\\|" |"yclic\\|
|000019d0| 29 5c 5c 7c 64 5c 5c 28 | 69 73 74 72 69 62 75 74 |)\\|d\\(|istribut|
|000019e0| 65 5c 5c 7c 79 6e 61 6d | 69 63 5c 5c 29 5c 5c 7c |e\\|ynam|ic\\)\\||
|000019f0| 65 78 74 72 69 6e 73 69 | 63 5c 5c 7c 67 72 61 64 |extrinsi|c\\|grad|
|00001a00| 65 5f 5c 5c 28 64 6f 77 | 6e 5c 5c 7c 22 20 22 75 |e_\\(dow|n\\|" "u|
|00001a10| 70 5c 5c 29 5c 5c 7c 68 | 70 66 5f 5c 5c 28 61 6c |p\\)\\|h|pf_\\(al|
|00001a20| 69 67 6e 6d 65 6e 74 5c | 5c 7c 64 69 73 74 72 69 |ignment\|\|distri|
|00001a30| 62 75 74 69 6f 6e 5c 5c | 7c 74 65 6d 70 6c 61 74 |bution\\||templat|
|00001a40| 65 5c 5c 29 5c 5c 7c 69 | 5c 5c 28 61 5c 5c 28 6c |e\\)\\|i|\\(a\\(l|
|00001a50| 6c 5c 5c 28 5c 5c 7c 22 | 20 22 5f 5c 5c 28 70 72 |l\\(\\|"| "_\\(pr|
|00001a60| 65 66 69 78 5c 5c 7c 73 | 5c 5c 28 63 61 74 74 65 |efix\\|s|\\(catte|
|00001a70| 72 5c 5c 7c 75 66 66 69 | 78 5c 5c 29 5c 5c 29 5c |r\\|uffi|x\\)\\)\|
|00001a80| 5c 29 5c 5c 7c 6e 79 5c | 5c 28 5c 5c 7c 5f 5c 5c |\)\\|ny\|\(\\|_\\|
|00001a90| 28 70 72 65 66 69 78 5c | 5c 7c 73 5c 5c 28 22 20 |(prefix\|\|s\\(" |
|00001aa0| 22 63 61 74 74 65 72 5c | 5c 7c 75 66 66 69 78 5c |"catter\|\|uffix\|
|00001ab0| 5c 29 5c 5c 29 5c 5c 29 | 5c 5c 29 5c 5c 7c 6c 65 |\)\\)\\)|\\)\\|le|
|00001ac0| 6e 5c 5c 7c 6e 5c 5c 28 | 64 65 70 65 6e 64 65 6e |n\\|n\\(|dependen|
|00001ad0| 74 5c 5c 7c 68 65 72 69 | 74 5c 5c 29 5c 5c 7c 70 |t\\|heri|t\\)\\|p|
|00001ae0| 61 72 69 74 79 5c 5c 28 | 5c 5c 7c 22 20 22 5f 5c |arity\\(|\\|" "_\|
|00001af0| 5c 28 70 72 65 66 69 78 | 5c 5c 7c 73 5c 5c 28 63 |\(prefix|\\|s\\(c|
|00001b00| 61 74 74 65 72 5c 5c 7c | 75 66 66 69 78 5c 5c 29 |atter\\||uffix\\)|
|00001b10| 5c 5c 29 5c 5c 29 5c 5c | 29 5c 5c 7c 6c 65 61 64 |\\)\\)\\|)\\|lead|
|00001b20| 7a 5c 5c 7c 6d 5c 5c 28 | 61 78 76 61 6c 5f 5c 5c |z\\|m\\(|axval_\\|
|00001b30| 28 22 20 22 70 72 65 66 | 69 78 5c 5c 7c 73 5c 5c |(" "pref|ix\\|s\\|
|00001b40| 28 63 61 74 74 65 72 5c | 5c 7c 75 66 66 69 78 5c |(catter\|\|uffix\|
|00001b50| 5c 29 5c 5c 29 5c 5c 7c | 69 6e 76 61 6c 5f 5c 5c |\)\\)\\||inval_\\|
|00001b60| 28 70 72 65 66 69 78 5c | 5c 7c 73 5c 5c 28 63 61 |(prefix\|\|s\\(ca|
|00001b70| 74 74 65 72 5c 5c 7c 22 | 20 22 75 66 66 69 78 5c |tter\\|"| "uffix\|
|00001b80| 5c 29 5c 5c 29 5c 5c 29 | 5c 5c 7c 6e 5c 5c 28 65 |\)\\)\\)|\\|n\\(e|
|00001b90| 77 5c 5c 7c 75 6d 62 65 | 72 5f 6f 66 5f 70 72 6f |w\\|umbe|r_of_pro|
|00001ba0| 63 65 73 73 6f 72 73 5c | 5c 29 5c 5c 7c 6f 6e 74 |cessors\|\)\\|ont|
|00001bb0| 6f 5c 5c 7c 70 5c 5c 28 | 61 72 69 74 79 5c 5c 28 |o\\|p\\(|arity\\(|
|00001bc0| 5c 5c 7c 22 20 22 5f 5c | 5c 28 70 72 65 66 69 78 |\\|" "_\|\(prefix|
|00001bd0| 5c 5c 7c 73 5c 5c 28 63 | 61 74 74 65 72 5c 5c 7c |\\|s\\(c|atter\\||
|00001be0| 75 66 66 69 78 5c 5c 29 | 5c 5c 29 5c 5c 29 5c 5c |uffix\\)|\\)\\)\\|
|00001bf0| 7c 6f 70 5c 5c 28 63 6e | 74 5c 5c 7c 70 61 72 5c ||op\\(cn|t\\|par\|
|00001c00| 5c 29 5c 5c 7c 72 6f 5c | 5c 28 22 20 22 63 65 73 |\)\\|ro\|\(" "ces|
|00001c10| 73 6f 72 73 5c 5c 28 5c | 5c 7c 5f 73 68 61 70 65 |sors\\(\|\|_shape|
|00001c20| 5c 5c 29 5c 5c 7c 64 75 | 63 74 5f 5c 5c 28 70 72 |\\)\\|du|ct_\\(pr|
|00001c30| 65 66 69 78 5c 5c 7c 73 | 5c 5c 28 63 61 74 74 65 |efix\\|s|\\(catte|
|00001c40| 72 5c 5c 7c 75 66 66 69 | 78 5c 5c 29 5c 5c 29 5c |r\\|uffi|x\\)\\)\|
|00001c50| 5c 29 5c 5c 7c 22 20 22 | 75 72 65 5c 5c 29 5c 5c |\)\\|" "|ure\\)\\|
|00001c60| 7c 72 65 5c 5c 28 61 6c | 69 67 6e 5c 5c 7c 64 69 ||re\\(al|ign\\|di|
|00001c70| 73 74 72 69 62 75 74 65 | 5c 5c 29 5c 5c 7c 73 75 |stribute|\\)\\|su|
|00001c80| 6d 5f 5c 5c 28 70 72 65 | 66 69 78 5c 5c 7c 73 5c |m_\\(pre|fix\\|s\|
|00001c90| 5c 28 63 61 74 74 65 72 | 5c 5c 7c 22 20 22 75 66 |\(catter|\\|" "uf|
|00001ca0| 66 69 78 5c 5c 29 5c 5c | 29 5c 5c 7c 74 65 6d 70 |fix\\)\\|)\\|temp|
|00001cb0| 6c 61 74 65 5c 5c 7c 77 | 69 74 68 5c 5c 29 5c 5c |late\\|w|ith\\)\\|
|00001cc0| 3e 22 29 20 28 23 24 20 | 2e 20 36 32 38 33 29 29 |>") (#$ |. 6283))|
|00001cd0| 0a 23 40 37 31 20 54 68 | 69 73 20 64 6f 65 73 20 |.#@71 Th|is does |
|00001ce0| 66 61 69 72 6c 79 20 73 | 75 62 64 75 65 64 20 68 |fairly s|ubdued h|
|00001cf0| 69 67 68 6c 69 67 68 74 | 69 6e 67 20 6f 66 20 63 |ighlight|ing of c|
|00001d00| 6f 6d 6d 65 6e 74 73 20 | 61 6e 64 20 66 75 6e 63 |omments |and func|
|00001d10| 74 69 6f 6e 20 63 61 6c | 6c 73 2e 1f 0a 28 64 65 |tion cal|ls...(de|
|00001d20| 66 76 61 72 20 66 39 30 | 2d 66 6f 6e 74 2d 6c 6f |fvar f90|-font-lo|
|00001d30| 63 6b 2d 6b 65 79 77 6f | 72 64 73 2d 31 20 28 62 |ck-keywo|rds-1 (b|
|00001d40| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 5c 6e 5c 22 |yte-code| "..\n\"|
|00001d50| ab 8b c3 c4 c5 c6 c7 c8 | c9 ca af 08 87 cb cc cd |........|........|
|00001d60| ce ca af 05 87 22 20 5b | 73 74 72 69 6e 67 2d 6d |....." [|string-m|
|00001d70| 61 74 63 68 20 22 58 45 | 6d 61 63 73 22 20 65 6d |atch "XE|macs" em|
|00001d80| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 28 22 5c 5c |acs-vers|ion ("\\|
|00001d90| 3c 5c 5c 28 65 6e 64 5b | 20 09 5d 2a 5c 5c 28 70 |<\\(end[| .]*\\(p|
|00001da0| 72 6f 67 72 61 6d 5c 5c | 7c 6d 6f 64 75 6c 65 5c |rogram\\||module\|
|00001db0| 5c 7c 66 75 6e 63 74 69 | 6f 6e 5c 5c 7c 73 75 62 |\|functi|on\\|sub|
|00001dc0| 72 6f 75 74 69 6e 65 5c | 5c 7c 74 79 70 65 5c 5c |routine\|\|type\\|
|00001dd0| 29 5c 5c 29 5c 5c 3e 22 | 20 31 20 66 6f 6e 74 2d |)\\)\\>"| 1 font-|
|00001de0| 6c 6f 63 6b 2d 6b 65 79 | 77 6f 72 64 2d 66 61 63 |lock-key|word-fac|
|00001df0| 65 29 20 28 22 5c 5c 3c | 5c 5c 28 65 6e 64 5b 20 |e) ("\\<|\\(end[ |
|00001e00| 09 5d 2a 5c 5c 28 70 72 | 6f 67 72 61 6d 5c 5c 7c |.]*\\(pr|ogram\\||
|00001e10| 6d 6f 64 75 6c 65 5c 5c | 7c 66 75 6e 63 74 69 6f |module\\||functio|
|00001e20| 6e 5c 5c 7c 73 75 62 72 | 6f 75 74 69 6e 65 5c 5c |n\\|subr|outine\\|
|00001e30| 7c 74 79 70 65 5c 5c 29 | 5c 5c 29 5c 5c 3e 5b 20 ||type\\)|\\)\\>[ |
|00001e40| 09 5d 2a 5c 5c 28 5c 5c | 73 77 2b 5c 5c 29 22 20 |.]*\\(\\|sw+\\)" |
|00001e50| 33 20 66 6f 6e 74 2d 6c | 6f 63 6b 2d 66 75 6e 63 |3 font-l|ock-func|
|00001e60| 74 69 6f 6e 2d 6e 61 6d | 65 2d 66 61 63 65 29 20 |tion-nam|e-face) |
|00001e70| 28 22 5c 5c 3c 5c 5c 28 | 70 72 6f 67 72 61 6d 5c |("\\<\\(|program\|
|00001e80| 5c 7c 63 61 6c 6c 5c 5c | 7c 6d 6f 64 75 6c 65 5c |\|call\\||module\|
|00001e90| 5c 7c 73 75 62 72 6f 75 | 74 69 6e 65 5c 5c 7c 66 |\|subrou|tine\\|f|
|00001ea0| 75 6e 63 74 69 6f 6e 5c | 5c 7c 75 73 65 5c 5c 29 |unction\|\|use\\)|
|00001eb0| 5c 5c 3e 22 20 31 20 66 | 6f 6e 74 2d 6c 6f 63 6b |\\>" 1 f|ont-lock|
|00001ec0| 2d 6b 65 79 77 6f 72 64 | 2d 66 61 63 65 29 20 28 |-keyword|-face) (|
|00001ed0| 22 5c 5c 3c 5c 5c 28 70 | 72 6f 67 72 61 6d 5c 5c |"\\<\\(p|rogram\\|
|00001ee0| 7c 63 61 6c 6c 5c 5c 7c | 6d 6f 64 75 6c 65 5c 5c ||call\\||module\\|
|00001ef0| 7c 73 75 62 72 6f 75 74 | 69 6e 65 5c 5c 7c 66 75 ||subrout|ine\\|fu|
|00001f00| 6e 63 74 69 6f 6e 5c 5c | 7c 75 73 65 5c 5c 29 5c |nction\\||use\\)\|
|00001f10| 5c 3e 5b 20 09 5d 2a 5c | 5c 28 5c 5c 73 77 2b 5c |\>[ .]*\|\(\\sw+\|
|00001f20| 5c 29 22 20 32 20 66 6f | 6e 74 2d 6c 6f 63 6b 2d |\)" 2 fo|nt-lock-|
|00001f30| 66 75 6e 63 74 69 6f 6e | 2d 6e 61 6d 65 2d 66 61 |function|-name-fa|
|00001f40| 63 65 20 6e 69 6c 20 74 | 29 20 28 22 5c 5c 3c 5c |ce nil t|) ("\\<\|
|00001f50| 5c 28 6d 6f 64 75 6c 65 | 5b 20 09 5d 2a 70 72 6f |\(module|[ .]*pro|
|00001f60| 63 65 64 75 72 65 5c 5c | 29 5c 5c 3e 22 20 31 20 |cedure\\|)\\>" 1 |
|00001f70| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 6b 65 79 77 6f 72 |font-loc|k-keywor|
|00001f80| 64 2d 66 61 63 65 20 74 | 29 20 28 22 5c 5c 3c 5c |d-face t|) ("\\<\|
|00001f90| 5c 28 74 79 70 65 5c 5c | 29 5b 20 09 5d 2a 5c 5c |\(type\\|)[ .]*\\|
|00001fa0| 28 2c 2e 2a 3a 3a 5b 20 | 09 5d 2a 5c 5c 7c 5b 20 |(,.*::[ |.]*\\|[ |
|00001fb0| 09 5d 2b 5c 5c 29 5c 5c | 28 5c 5c 73 77 2b 5c 5c |.]+\\)\\|(\\sw+\\|
|00001fc0| 29 22 20 31 20 66 6f 6e | 74 2d 6c 6f 63 6b 2d 6b |)" 1 fon|t-lock-k|
|00001fd0| 65 79 77 6f 72 64 2d 66 | 61 63 65 29 20 28 22 5c |eyword-f|ace) ("\|
|00001fe0| 5c 3c 5c 5c 28 74 79 70 | 65 5c 5c 29 5b 20 09 5d |\<\\(typ|e\\)[ .]|
|00001ff0| 2a 5c 5c 28 2c 2e 2a 3a | 3a 5b 20 09 5d 2a 5c 5c |*\\(,.*:|:[ .]*\\|
|00002000| 7c 5b 20 09 5d 2b 5c 5c | 29 5c 5c 28 5c 5c 73 77 ||[ .]+\\|)\\(\\sw|
|00002010| 2b 5c 5c 29 22 20 33 20 | 66 6f 6e 74 2d 6c 6f 63 |+\\)" 3 |font-loc|
|00002020| 6b 2d 66 75 6e 63 74 69 | 6f 6e 2d 6e 61 6d 65 2d |k-functi|on-name-|
|00002030| 66 61 63 65 29 20 22 5c | 5c 3c 5c 5c 28 5c 5c 28 |face) "\|\<\\(\\(|
|00002040| 65 6e 64 5b 20 09 5d 2a | 5c 5c 29 3f 5c 5c 28 69 |end[ .]*|\\)?\\(i|
|00002050| 6e 74 65 72 66 61 63 65 | 5c 5c 7c 62 6c 6f 63 6b |nterface|\\|block|
|00002060| 5b 20 09 5d 2a 64 61 74 | 61 5c 5c 29 5c 5c 7c 63 |[ .]*dat|a\\)\\|c|
|00002070| 6f 6e 74 61 69 6e 73 5c | 5c 29 5c 5c 3e 22 20 28 |ontains\|\)\\>" (|
|00002080| 22 5c 5c 3c 5c 5c 28 65 | 6e 64 5b 20 09 5d 2a 5c |"\\<\\(e|nd[ .]*\|
|00002090| 5c 28 70 72 6f 67 72 61 | 6d 5c 5c 7c 6d 6f 64 75 |\(progra|m\\|modu|
|000020a0| 6c 65 5c 5c 7c 66 75 6e | 63 74 69 6f 6e 5c 5c 7c |le\\|fun|ction\\||
|000020b0| 73 75 62 72 6f 75 74 69 | 6e 65 5c 5c 7c 74 79 70 |subrouti|ne\\|typ|
|000020c0| 65 5c 5c 29 5c 5c 29 5c | 5c 3e 5b 20 09 5d 2a 5c |e\\)\\)\|\>[ .]*\|
|000020d0| 5c 28 5c 5c 73 77 2b 5c | 5c 29 3f 22 20 28 31 20 |\(\\sw+\|\)?" (1 |
|000020e0| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 6b 65 79 77 6f 72 |font-loc|k-keywor|
|000020f0| 64 2d 66 61 63 65 29 20 | 28 33 20 66 6f 6e 74 2d |d-face) |(3 font-|
|00002100| 6c 6f 63 6b 2d 66 75 6e | 63 74 69 6f 6e 2d 6e 61 |lock-fun|ction-na|
|00002110| 6d 65 2d 66 61 63 65 20 | 6e 69 6c 20 74 29 29 20 |me-face |nil t)) |
|00002120| 28 22 5c 5c 3c 5c 5c 28 | 70 72 6f 67 72 61 6d 5c |("\\<\\(|program\|
|00002130| 5c 7c 63 61 6c 6c 5c 5c | 7c 6d 6f 64 75 6c 65 5c |\|call\\||module\|
|00002140| 5c 7c 73 75 62 72 6f 75 | 74 69 6e 65 5c 5c 7c 66 |\|subrou|tine\\|f|
|00002150| 75 6e 63 74 69 6f 6e 5c | 5c 7c 75 73 65 5c 5c 29 |unction\|\|use\\)|
|00002160| 5c 5c 3e 5b 20 09 5d 2a | 5c 5c 28 5c 5c 73 77 2b |\\>[ .]*|\\(\\sw+|
|00002170| 5c 5c 29 3f 22 20 28 31 | 20 66 6f 6e 74 2d 6c 6f |\\)?" (1| font-lo|
|00002180| 63 6b 2d 6b 65 79 77 6f | 72 64 2d 66 61 63 65 29 |ck-keywo|rd-face)|
|00002190| 20 28 32 20 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 66 75 | (2 font|-lock-fu|
|000021a0| 6e 63 74 69 6f 6e 2d 6e | 61 6d 65 2d 66 61 63 65 |nction-n|ame-face|
|000021b0| 20 6e 69 6c 20 74 29 29 | 20 28 22 5c 5c 3c 5c 5c | nil t))| ("\\<\\|
|000021c0| 28 6d 6f 64 75 6c 65 5b | 20 09 5d 2a 70 72 6f 63 |(module[| .]*proc|
|000021d0| 65 64 75 72 65 5c 5c 29 | 5c 5c 3e 22 20 28 31 20 |edure\\)|\\>" (1 |
|000021e0| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 6b 65 79 77 6f 72 |font-loc|k-keywor|
|000021f0| 64 2d 66 61 63 65 20 74 | 29 29 20 28 22 5c 5c 3c |d-face t|)) ("\\<|
|00002200| 5c 5c 28 74 79 70 65 5c | 5c 29 5b 20 09 5d 2a 5c |\\(type\|\)[ .]*\|
|00002210| 5c 28 2c 2e 2a 3a 3a 5b | 20 09 5d 2a 5c 5c 7c 5b |\(,.*::[| .]*\\|[|
|00002220| 20 09 5d 2b 5c 5c 29 5c | 5c 28 5c 5c 73 77 2b 5c | .]+\\)\|\(\\sw+\|
|00002230| 5c 29 22 20 28 31 20 66 | 6f 6e 74 2d 6c 6f 63 6b |\)" (1 f|ont-lock|
|00002240| 2d 6b 65 79 77 6f 72 64 | 2d 66 61 63 65 29 20 28 |-keyword|-face) (|
|00002250| 33 20 66 6f 6e 74 2d 6c | 6f 63 6b 2d 66 75 6e 63 |3 font-l|ock-func|
|00002260| 74 69 6f 6e 2d 6e 61 6d | 65 2d 66 61 63 65 29 29 |tion-nam|e-face))|
|00002270| 5d 20 38 29 20 28 23 24 | 20 2e 20 37 33 38 32 29 |] 8) (#$| . 7382)|
|00002280| 29 0a 23 40 35 39 20 48 | 69 67 68 6c 69 67 68 74 |).#@59 H|ighlight|
|00002290| 73 20 64 65 63 6c 61 72 | 61 74 69 6f 6e 73 2c 20 |s declar|ations, |
|000022a0| 64 6f 2d 6c 6f 6f 70 73 | 20 61 6e 64 20 6f 74 68 |do-loops| and oth|
|000022b0| 65 72 20 63 6f 6e 73 74 | 72 75 63 74 69 6f 6e 73 |er const|ructions|
|000022c0| 1f 0a 28 64 65 66 76 61 | 72 20 66 39 30 2d 66 6f |..(defva|r f90-fo|
|000022d0| 6e 74 2d 6c 6f 63 6b 2d | 6b 65 79 77 6f 72 64 73 |nt-lock-|keywords|
|000022e0| 2d 32 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |-2 (byte|-code ".|
|000022f0| 09 c2 c3 0c 5c 22 ab 97 | c5 c6 c7 c8 c9 ca cb cc |....\"..|........|
|00002300| cd ce cf d0 d1 d2 d3 d4 | d5 d6 d7 af 13 aa 8e d8 |........|........|
|00002310| d9 da db dc dd d0 d1 de | df e0 e1 af 0c 5c 22 87 |........|.....\".|
|00002320| 22 20 5b 61 70 70 65 6e | 64 20 66 39 30 2d 66 6f |" [appen|d f90-fo|
|00002330| 6e 74 2d 6c 6f 63 6b 2d | 6b 65 79 77 6f 72 64 73 |nt-lock-|keywords|
|00002340| 2d 31 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |-1 strin|g-match |
|00002350| 22 58 45 6d 61 63 73 22 | 20 65 6d 61 63 73 2d 76 |"XEmacs"| emacs-v|
|00002360| 65 72 73 69 6f 6e 20 28 | 22 5e 5b 20 09 30 2d 39 |ersion (|"^[ .0-9|
|00002370| 5d 2a 5c 5c 28 72 65 61 | 6c 5c 5c 7c 69 6e 74 65 |]*\\(rea|l\\|inte|
|00002380| 67 65 72 5c 5c 7c 63 5c | 5c 28 68 61 72 61 63 74 |ger\\|c\|\(haract|
|00002390| 65 72 5c 5c 7c 6f 6d 70 | 6c 65 78 5c 5c 29 5c 5c |er\\|omp|lex\\)\\|
|000023a0| 7c 6c 6f 67 69 63 61 6c | 5c 5c 7c 74 79 70 65 5b ||logical|\\|type[|
|000023b0| 20 09 5d 2a 28 5c 5c 73 | 77 2b 29 5c 5c 29 22 20 | .]*(\\s|w+)\\)" |
|000023c0| 31 20 66 6f 6e 74 2d 6c | 6f 63 6b 2d 74 79 70 65 |1 font-l|ock-type|
|000023d0| 2d 66 61 63 65 29 20 28 | 22 5e 5b 20 09 30 2d 39 |-face) (|"^[ .0-9|
|000023e0| 5d 2a 5c 5c 28 72 65 61 | 6c 5c 5c 7c 69 6e 74 65 |]*\\(rea|l\\|inte|
|000023f0| 67 65 72 5c 5c 7c 63 5c | 5c 28 68 61 72 61 63 74 |ger\\|c\|\(haract|
|00002400| 65 72 5c 5c 7c 6f 6d 70 | 6c 65 78 5c 5c 29 5c 5c |er\\|omp|lex\\)\\|
|00002410| 7c 6c 6f 67 69 63 61 6c | 5c 5c 7c 74 79 70 65 5b ||logical|\\|type[|
|00002420| 20 09 5d 2a 28 5c 5c 73 | 77 2b 29 5c 5c 29 5c 5c | .]*(\\s|w+)\\)\\|
|00002430| 28 2e 2a 3a 3a 5c 5c 7c | 5b 20 09 5d 2a 28 2e 2a |(.*::\\||[ .]*(.*|
|00002440| 29 5c 5c 29 3f 5c 5c 28 | 2e 2a 5c 5c 29 22 20 34 |)\\)?\\(|.*\\)" 4|
|00002450| 20 66 6f 6e 74 2d 6c 6f | 63 6b 2d 64 6f 63 2d 73 | font-lo|ck-doc-s|
|00002460| 74 72 69 6e 67 2d 66 61 | 63 65 29 20 28 22 5c 5c |tring-fa|ce) ("\\|
|00002470| 3c 5c 5c 28 65 6e 64 5b | 20 09 5d 2a 5c 5c 28 64 |<\\(end[| .]*\\(d|
|00002480| 6f 5c 5c 7c 69 66 5c 5c | 7c 73 65 6c 65 63 74 5c |o\\|if\\||select\|
|00002490| 5c 29 5c 5c 29 5c 5c 3e | 22 20 31 20 66 6f 6e 74 |\)\\)\\>|" 1 font|
|000024a0| 2d 6c 6f 63 6b 2d 6b 65 | 79 77 6f 72 64 2d 66 61 |-lock-ke|yword-fa|
|000024b0| 63 65 29 20 28 22 5c 5c | 3c 5c 5c 28 65 6e 64 5b |ce) ("\\|<\\(end[|
|000024c0| 20 09 5d 2a 5c 5c 28 64 | 6f 5c 5c 7c 69 66 5c 5c | .]*\\(d|o\\|if\\|
|000024d0| 7c 73 65 6c 65 63 74 5c | 5c 29 5c 5c 29 5c 5c 3e ||select\|\)\\)\\>|
|000024e0| 5c 5c 28 5b 20 09 5d 2b | 5c 5c 28 5c 5c 73 77 2b |\\([ .]+|\\(\\sw+|
|000024f0| 5c 5c 29 5c 5c 29 22 20 | 33 20 66 6f 6e 74 2d 6c |\\)\\)" |3 font-l|
|00002500| 6f 63 6b 2d 64 6f 63 2d | 73 74 72 69 6e 67 2d 66 |ock-doc-|string-f|
|00002510| 61 63 65 29 20 28 22 5e | 5b 20 09 30 2d 39 5d 2a |ace) ("^|[ .0-9]*|
|00002520| 5c 5c 28 5c 5c 28 5c 5c | 73 77 2b 5c 5c 29 5b 20 |\\(\\(\\|sw+\\)[ |
|00002530| 09 5d 2a 3a 5b 20 09 5d | 2a 5c 5c 29 5c 5c 28 5c |.]*:[ .]|*\\)\\(\|
|00002540| 5c 28 69 66 5c 5c 7c 64 | 6f 5c 5c 28 5b 20 09 5d |\(if\\|d|o\\([ .]|
|00002550| 2a 77 68 69 6c 65 5c 5c | 29 3f 5c 5c 7c 73 65 6c |*while\\|)?\\|sel|
|00002560| 65 63 74 5b 20 09 5d 2a | 63 61 73 65 5c 5c 29 5c |ect[ .]*|case\\)\|
|00002570| 5c 29 5c 5c 3e 22 20 32 | 20 66 6f 6e 74 2d 6c 6f |\)\\>" 2| font-lo|
|00002580| 63 6b 2d 64 6f 63 2d 73 | 74 72 69 6e 67 2d 66 61 |ck-doc-s|tring-fa|
|00002590| 63 65 29 20 28 22 5e 5b | 20 09 30 2d 39 5d 2a 5c |ce) ("^[| .0-9]*\|
|000025a0| 5c 28 5c 5c 28 5c 5c 73 | 77 2b 5c 5c 29 5b 20 09 |\(\\(\\s|w+\\)[ .|
|000025b0| 5d 2a 3a 5b 20 09 5d 2a | 5c 5c 29 3f 5c 5c 28 5c |]*:[ .]*|\\)?\\(\|
|000025c0| 5c 28 69 66 5c 5c 7c 64 | 6f 5c 5c 28 5b 20 09 5d |\(if\\|d|o\\([ .]|
|000025d0| 2a 77 68 69 6c 65 5c 5c | 29 3f 5c 5c 7c 73 65 6c |*while\\|)?\\|sel|
|000025e0| 65 63 74 5b 20 09 5d 2a | 63 61 73 65 5c 5c 29 5c |ect[ .]*|case\\)\|
|000025f0| 5c 29 5c 5c 3e 22 20 33 | 20 66 6f 6e 74 2d 6c 6f |\)\\>" 3| font-lo|
|00002600| 63 6b 2d 6b 65 79 77 6f | 72 64 2d 66 61 63 65 29 |ck-keywo|rd-face)|
|00002610| 20 28 22 5c 5c 3c 5c 5c | 28 69 6d 70 6c 69 63 69 | ("\\<\\|(implici|
|00002620| 74 5c 5c 29 5b 20 09 5d | 2a 5c 5c 28 72 65 61 6c |t\\)[ .]|*\\(real|
|00002630| 5c 5c 7c 69 6e 74 65 67 | 65 72 5c 5c 7c 63 5c 5c |\\|integ|er\\|c\\|
|00002640| 28 68 61 72 61 63 74 65 | 72 5c 5c 7c 6f 6d 70 6c |(haracte|r\\|ompl|
|00002650| 65 78 5c 5c 29 5c 5c 7c | 6c 6f 67 69 63 61 6c 5c |ex\\)\\||logical\|
|00002660| 5c 7c 74 79 70 65 5b 20 | 09 5d 2a 28 5c 5c 73 77 |\|type[ |.]*(\\sw|
|00002670| 2b 29 5c 5c 7c 6e 6f 6e | 65 5c 5c 29 5c 5c 3e 22 |+)\\|non|e\\)\\>"|
|00002680| 20 31 20 66 6f 6e 74 2d | 6c 6f 63 6b 2d 6b 65 79 | 1 font-|lock-key|
|00002690| 77 6f 72 64 2d 66 61 63 | 65 29 20 28 22 5c 5c 3c |word-fac|e) ("\\<|
|000026a0| 5c 5c 28 69 6d 70 6c 69 | 63 69 74 5c 5c 29 5b 20 |\\(impli|cit\\)[ |
|000026b0| 09 5d 2a 5c 5c 28 72 65 | 61 6c 5c 5c 7c 69 6e 74 |.]*\\(re|al\\|int|
|000026c0| 65 67 65 72 5c 5c 7c 63 | 5c 5c 28 68 61 72 61 63 |eger\\|c|\\(harac|
|000026d0| 74 65 72 5c 5c 7c 6f 6d | 70 6c 65 78 5c 5c 29 5c |ter\\|om|plex\\)\|
|000026e0| 5c 7c 6c 6f 67 69 63 61 | 6c 5c 5c 7c 74 79 70 65 |\|logica|l\\|type|
|000026f0| 5b 20 09 5d 2a 28 5c 5c | 73 77 2b 29 5c 5c 7c 6e |[ .]*(\\|sw+)\\|n|
|00002700| 6f 6e 65 5c 5c 29 5c 5c | 3e 22 20 32 20 66 6f 6e |one\\)\\|>" 2 fon|
|00002710| 74 2d 6c 6f 63 6b 2d 74 | 79 70 65 2d 66 61 63 65 |t-lock-t|ype-face|
|00002720| 29 20 28 22 5c 5c 3c 5c | 5c 28 6e 61 6d 65 6c 69 |) ("\\<\|\(nameli|
|00002730| 73 74 5c 5c 7c 63 6f 6d | 6d 6f 6e 5c 5c 29 5b 20 |st\\|com|mon\\)[ |
|00002740| 09 5d 2a 2f 5c 5c 28 5c | 5c 73 77 2b 5c 5c 29 3f |.]*/\\(\|\sw+\\)?|
|00002750| 2f 22 20 31 20 66 6f 6e | 74 2d 6c 6f 63 6b 2d 6b |/" 1 fon|t-lock-k|
|00002760| 65 79 77 6f 72 64 2d 66 | 61 63 65 29 20 28 22 5c |eyword-f|ace) ("\|
|00002770| 5c 3c 5c 5c 28 6e 61 6d | 65 6c 69 73 74 5c 5c 7c |\<\\(nam|elist\\||
|00002780| 63 6f 6d 6d 6f 6e 5c 5c | 29 5b 20 09 5d 2a 2f 5c |common\\|)[ .]*/\|
|00002790| 5c 28 5c 5c 73 77 2b 5c | 5c 29 2f 22 20 32 20 66 |\(\\sw+\|\)/" 2 f|
|000027a0| 6f 6e 74 2d 6c 6f 63 6b | 2d 64 6f 63 2d 73 74 72 |ont-lock|-doc-str|
|000027b0| 69 6e 67 2d 66 61 63 65 | 20 6e 69 6c 20 74 29 20 |ing-face| nil t) |
|000027c0| 28 22 5c 5c 3c 5c 5c 28 | 77 68 65 72 65 5c 5c 7c |("\\<\\(|where\\||
|000027d0| 66 6f 72 61 6c 6c 5c 5c | 29 5b 20 09 5d 2a 28 22 |forall\\|)[ .]*("|
|000027e0| 20 2e 20 31 29 20 22 5c | 5c 3c 65 5c 5c 28 6c 73 | . 1) "\|\<e\\(ls|
|000027f0| 65 5c 5c 28 5b 20 09 5d | 2a 69 66 5c 5c 7c 77 68 |e\\([ .]|*if\\|wh|
|00002800| 65 72 65 5c 5c 29 3f 5c | 5c 7c 6e 64 5b 20 09 5d |ere\\)?\|\|nd[ .]|
|00002810| 2a 5c 5c 28 77 68 65 72 | 65 5c 5c 7c 66 6f 72 61 |*\\(wher|e\\|fora|
|00002820| 6c 6c 5c 5c 29 5c 5c 29 | 5c 5c 3e 22 20 22 5c 5c |ll\\)\\)|\\>" "\\|
|00002830| 3c 5c 5c 28 74 68 65 6e | 5c 5c 7c 63 6f 6e 74 69 |<\\(then|\\|conti|
|00002840| 6e 75 65 5c 5c 7c 66 6f | 72 6d 61 74 5c 5c 7c 69 |nue\\|fo|rmat\\|i|
|00002850| 6e 63 6c 75 64 65 5c 5c | 7c 73 74 6f 70 5c 5c 7c |nclude\\||stop\\||
|00002860| 72 65 74 75 72 6e 5c 5c | 29 5c 5c 3e 22 20 28 22 |return\\|)\\>" ("|
|00002870| 5c 5c 3c 5c 5c 28 65 78 | 69 74 5c 5c 7c 63 79 63 |\\<\\(ex|it\\|cyc|
|00002880| 6c 65 5c 5c 29 5c 5c 3e | 22 20 31 20 66 6f 6e 74 |le\\)\\>|" 1 font|
|00002890| 2d 6c 6f 63 6b 2d 6b 65 | 79 77 6f 72 64 2d 66 61 |-lock-ke|yword-fa|
|000028a0| 63 65 29 20 28 22 5c 5c | 3c 5c 5c 28 65 78 69 74 |ce) ("\\|<\\(exit|
|000028b0| 5c 5c 7c 63 79 63 6c 65 | 5c 5c 29 5b 20 09 5d 2a |\\|cycle|\\)[ .]*|
|000028c0| 5c 5c 28 5c 5c 73 77 2b | 5c 5c 29 32 5c 5c 3e 22 |\\(\\sw+|\\)2\\>"|
|000028d0| 20 32 20 66 6f 6e 74 2d | 6c 6f 63 6b 2d 64 6f 63 | 2 font-|lock-doc|
|000028e0| 2d 73 74 72 69 6e 67 2d | 66 61 63 65 29 20 28 22 |-string-|face) ("|
|000028f0| 5c 5c 3c 5c 5c 28 63 61 | 73 65 5c 5c 29 5b 20 09 |\\<\\(ca|se\\)[ .|
|00002900| 5d 2a 5c 5c 28 64 65 66 | 61 75 6c 74 5c 5c 7c 28 |]*\\(def|ault\\|(|
|00002910| 5c 5c 29 22 20 2e 20 31 | 29 20 28 22 5c 5c 3c 5c |\\)" . 1|) ("\\<\|
|00002920| 5c 28 64 6f 5c 5c 7c 67 | 6f 20 2a 74 6f 5c 5c 29 |\(do\\|g|o *to\\)|
|00002930| 5c 5c 3e 5b 20 09 5d 2a | 5c 5c 28 5b 30 2d 39 5d |\\>[ .]*|\\([0-9]|
|00002940| 2b 5c 5c 29 22 20 31 20 | 66 6f 6e 74 2d 6c 6f 63 |+\\)" 1 |font-loc|
|00002950| 6b 2d 6b 65 79 77 6f 72 | 64 2d 66 61 63 65 29 20 |k-keywor|d-face) |
|00002960| 28 22 5c 5c 3c 5c 5c 28 | 64 6f 5c 5c 7c 67 6f 20 |("\\<\\(|do\\|go |
|00002970| 2a 74 6f 5c 5c 29 5c 5c | 3e 5b 20 09 5d 2a 5c 5c |*to\\)\\|>[ .]*\\|
|00002980| 28 5b 30 2d 39 5d 2b 5c | 5c 29 22 20 32 20 66 6f |([0-9]+\|\)" 2 fo|
|00002990| 6e 74 2d 6c 6f 63 6b 2d | 64 6f 63 2d 73 74 72 69 |nt-lock-|doc-stri|
|000029a0| 6e 67 2d 66 61 63 65 29 | 20 28 22 5e 5b 20 09 5d |ng-face)| ("^[ .]|
|000029b0| 2a 5c 5c 28 5b 30 2d 39 | 5d 2b 5c 5c 29 22 20 31 |*\\([0-9|]+\\)" 1|
|000029c0| 20 66 6f 6e 74 2d 6c 6f | 63 6b 2d 64 6f 63 2d 73 | font-lo|ck-doc-s|
|000029d0| 74 72 69 6e 67 2d 66 61 | 63 65 20 74 29 20 28 22 |tring-fa|ce t) ("|
|000029e0| 5e 5b 20 09 30 2d 39 5d | 2a 5c 5c 28 72 65 61 6c |^[ .0-9]|*\\(real|
|000029f0| 5c 5c 7c 69 6e 74 65 67 | 65 72 5c 5c 7c 63 5c 5c |\\|integ|er\\|c\\|
|00002a00| 28 68 61 72 61 63 74 65 | 72 5c 5c 7c 6f 6d 70 6c |(haracte|r\\|ompl|
|00002a10| 65 78 5c 5c 29 5c 5c 7c | 6c 6f 67 69 63 61 6c 5c |ex\\)\\||logical\|
|00002a20| 5c 7c 74 79 70 65 5b 20 | 09 5d 2a 28 5c 5c 73 77 |\|type[ |.]*(\\sw|
|00002a30| 2b 29 5c 5c 29 5c 5c 28 | 2e 2a 3a 3a 5c 5c 7c 5b |+)\\)\\(|.*::\\|[|
|00002a40| 20 09 5d 2a 28 2e 2a 29 | 5c 5c 29 3f 5c 5c 28 2e | .]*(.*)|\\)?\\(.|
|00002a50| 2a 5c 5c 29 22 20 28 31 | 20 66 6f 6e 74 2d 6c 6f |*\\)" (1| font-lo|
|00002a60| 63 6b 2d 74 79 70 65 2d | 66 61 63 65 29 20 28 34 |ck-type-|face) (4|
|00002a70| 20 66 6f 6e 74 2d 6c 6f | 63 6b 2d 76 61 72 69 61 | font-lo|ck-varia|
|00002a80| 62 6c 65 2d 6e 61 6d 65 | 2d 66 61 63 65 29 29 20 |ble-name|-face)) |
|00002a90| 28 22 5c 5c 3c 5c 5c 28 | 65 6e 64 5b 20 09 5d 2a |("\\<\\(|end[ .]*|
|00002aa0| 5c 5c 28 64 6f 5c 5c 7c | 69 66 5c 5c 7c 73 65 6c |\\(do\\||if\\|sel|
|00002ab0| 65 63 74 5c 5c 29 5c 5c | 29 5c 5c 3e 5c 5c 28 5b |ect\\)\\|)\\>\\([|
|00002ac0| 20 09 5d 2b 5c 5c 28 5c | 5c 73 77 2b 5c 5c 29 5c | .]+\\(\|\sw+\\)\|
|00002ad0| 5c 29 3f 22 20 28 31 20 | 66 6f 6e 74 2d 6c 6f 63 |\)?" (1 |font-loc|
|00002ae0| 6b 2d 6b 65 79 77 6f 72 | 64 2d 66 61 63 65 29 20 |k-keywor|d-face) |
|00002af0| 28 33 20 66 6f 6e 74 2d | 6c 6f 63 6b 2d 72 65 66 |(3 font-|lock-ref|
|00002b00| 65 72 65 6e 63 65 2d 66 | 61 63 65 20 6e 69 6c 20 |erence-f|ace nil |
|00002b10| 74 29 29 20 28 22 5e 5b | 20 09 30 2d 39 5d 2a 5c |t)) ("^[| .0-9]*\|
|00002b20| 5c 28 5c 5c 28 5c 5c 73 | 77 2b 5c 5c 29 5b 20 09 |\(\\(\\s|w+\\)[ .|
|00002b30| 5d 2a 3a 5b 20 09 5d 2a | 5c 5c 29 3f 5c 5c 28 5c |]*:[ .]*|\\)?\\(\|
|00002b40| 5c 28 69 66 5c 5c 7c 64 | 6f 5c 5c 28 5b 20 09 5d |\(if\\|d|o\\([ .]|
|00002b50| 2a 77 68 69 6c 65 5c 5c | 29 3f 5c 5c 7c 73 65 6c |*while\\|)?\\|sel|
|00002b60| 65 63 74 5b 20 09 5d 2a | 63 61 73 65 5c 5c 29 5c |ect[ .]*|case\\)\|
|00002b70| 5c 29 5c 5c 3e 22 20 28 | 32 20 66 6f 6e 74 2d 6c |\)\\>" (|2 font-l|
|00002b80| 6f 63 6b 2d 72 65 66 65 | 72 65 6e 63 65 2d 66 61 |ock-refe|rence-fa|
|00002b90| 63 65 20 6e 69 6c 20 74 | 29 20 28 33 20 66 6f 6e |ce nil t|) (3 fon|
|00002ba0| 74 2d 6c 6f 63 6b 2d 6b | 65 79 77 6f 72 64 2d 66 |t-lock-k|eyword-f|
|00002bb0| 61 63 65 29 29 20 28 22 | 5c 5c 3c 5c 5c 28 69 6d |ace)) ("|\\<\\(im|
|00002bc0| 70 6c 69 63 69 74 5c 5c | 29 5b 20 09 5d 2a 5c 5c |plicit\\|)[ .]*\\|
|00002bd0| 28 72 65 61 6c 5c 5c 7c | 69 6e 74 65 67 65 72 5c |(real\\||integer\|
|00002be0| 5c 7c 63 5c 5c 28 68 61 | 72 61 63 74 65 72 5c 5c |\|c\\(ha|racter\\|
|00002bf0| 7c 6f 6d 70 6c 65 78 5c | 5c 29 5c 5c 7c 6c 6f 67 ||omplex\|\)\\|log|
|00002c00| 69 63 61 6c 5c 5c 7c 74 | 79 70 65 5b 20 09 5d 2a |ical\\|t|ype[ .]*|
|00002c10| 28 5c 5c 73 77 2b 29 5c | 5c 7c 6e 6f 6e 65 5c 5c |(\\sw+)\|\|none\\|
|00002c20| 29 5c 5c 3e 22 20 28 31 | 20 66 6f 6e 74 2d 6c 6f |)\\>" (1| font-lo|
|00002c30| 63 6b 2d 6b 65 79 77 6f | 72 64 2d 66 61 63 65 29 |ck-keywo|rd-face)|
|00002c40| 20 28 32 20 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 74 79 | (2 font|-lock-ty|
|00002c50| 70 65 2d 66 61 63 65 29 | 29 20 28 22 5c 5c 3c 5c |pe-face)|) ("\\<\|
|00002c60| 5c 28 6e 61 6d 65 6c 69 | 73 74 5c 5c 7c 63 6f 6d |\(nameli|st\\|com|
|00002c70| 6d 6f 6e 5c 5c 29 5b 20 | 09 5d 2a 2f 5c 5c 28 5c |mon\\)[ |.]*/\\(\|
|00002c80| 5c 73 77 2b 5c 5c 29 3f | 2f 22 20 28 31 20 66 6f |\sw+\\)?|/" (1 fo|
|00002c90| 6e 74 2d 6c 6f 63 6b 2d | 6b 65 79 77 6f 72 64 2d |nt-lock-|keyword-|
|00002ca0| 66 61 63 65 29 20 28 32 | 20 66 6f 6e 74 2d 6c 6f |face) (2| font-lo|
|00002cb0| 63 6b 2d 72 65 66 65 72 | 65 6e 63 65 2d 66 61 63 |ck-refer|ence-fac|
|00002cc0| 65 20 6e 69 6c 20 74 29 | 29 20 28 22 5c 5c 3c 5c |e nil t)|) ("\\<\|
|00002cd0| 5c 28 77 68 65 72 65 5c | 5c 7c 66 6f 72 61 6c 6c |\(where\|\|forall|
|00002ce0| 5c 5c 29 5b 20 09 5d 2a | 28 22 20 2e 20 31 29 20 |\\)[ .]*|(" . 1) |
|00002cf0| 28 22 5c 5c 3c 5c 5c 28 | 65 78 69 74 5c 5c 7c 63 |("\\<\\(|exit\\|c|
|00002d00| 79 63 6c 65 5c 5c 29 5b | 20 09 5d 2a 5c 5c 28 5c |ycle\\)[| .]*\\(\|
|00002d10| 5c 73 77 2b 5c 5c 29 3f | 5c 5c 3e 22 20 28 31 20 |\sw+\\)?|\\>" (1 |
|00002d20| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 6b 65 79 77 6f 72 |font-loc|k-keywor|
|00002d30| 64 2d 66 61 63 65 29 20 | 28 32 20 66 6f 6e 74 2d |d-face) |(2 font-|
|00002d40| 6c 6f 63 6b 2d 72 65 66 | 65 72 65 6e 63 65 2d 66 |lock-ref|erence-f|
|00002d50| 61 63 65 20 6e 69 6c 20 | 74 29 29 20 28 22 5c 5c |ace nil |t)) ("\\|
|00002d60| 3c 5c 5c 28 63 61 73 65 | 5c 5c 29 5b 20 09 5d 2a |<\\(case|\\)[ .]*|
|00002d70| 5c 5c 28 64 65 66 61 75 | 6c 74 5c 5c 7c 28 5c 5c |\\(defau|lt\\|(\\|
|00002d80| 29 22 20 2e 20 31 29 20 | 28 22 5c 5c 3c 5c 5c 28 |)" . 1) |("\\<\\(|
|00002d90| 64 6f 5c 5c 7c 67 6f 20 | 2a 74 6f 5c 5c 29 5c 5c |do\\|go |*to\\)\\|
|00002da0| 3e 5b 20 09 5d 2a 5c 5c | 28 5b 30 2d 39 5d 2b 5c |>[ .]*\\|([0-9]+\|
|00002db0| 5c 29 22 20 28 31 20 66 | 6f 6e 74 2d 6c 6f 63 6b |\)" (1 f|ont-lock|
|00002dc0| 2d 6b 65 79 77 6f 72 64 | 2d 66 61 63 65 29 20 28 |-keyword|-face) (|
|00002dd0| 32 20 66 6f 6e 74 2d 6c | 6f 63 6b 2d 72 65 66 65 |2 font-l|ock-refe|
|00002de0| 72 65 6e 63 65 2d 66 61 | 63 65 29 29 20 28 22 5e |rence-fa|ce)) ("^|
|00002df0| 5b 20 09 5d 2a 5c 5c 28 | 5b 30 2d 39 5d 2b 5c 5c |[ .]*\\(|[0-9]+\\|
|00002e00| 29 22 20 28 31 20 66 6f | 6e 74 2d 6c 6f 63 6b 2d |)" (1 fo|nt-lock-|
|00002e10| 72 65 66 65 72 65 6e 63 | 65 2d 66 61 63 65 20 74 |referenc|e-face t|
|00002e20| 29 29 5d 20 32 31 29 20 | 28 23 24 20 2e 20 38 38 |))] 21) |(#$ . 88|
|00002e30| 33 39 29 29 0a 23 40 35 | 35 20 48 69 67 68 6c 69 |39)).#@5|5 Highli|
|00002e40| 67 68 74 73 20 61 6c 6c | 20 46 39 30 20 6b 65 79 |ghts all| F90 key|
|00002e50| 77 6f 72 64 73 20 61 6e | 64 20 69 6e 74 72 69 6e |words an|d intrin|
|00002e60| 73 69 63 20 70 72 6f 63 | 65 64 75 72 65 73 2e 1f |sic proc|edures..|
|00002e70| 0a 28 64 65 66 76 61 72 | 20 66 39 30 2d 66 6f 6e |.(defvar| f90-fon|
|00002e80| 74 2d 6c 6f 63 6b 2d 6b | 65 79 77 6f 72 64 73 2d |t-lock-k|eywords-|
|00002e90| 33 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 |3 (byte-|code "..|
|00002ea0| 5c 6e 0b c4 c5 0e 06 5c | 22 ab 88 c0 0e 07 43 c8 |\n.....\|".....C.|
|00002eb0| 5c 22 aa 84 0e 07 c9 44 | ca 46 5c 22 87 22 20 5b |\".....D|.F\"." [|
|00002ec0| 61 70 70 65 6e 64 20 66 | 39 30 2d 66 6f 6e 74 2d |append f|90-font-|
|00002ed0| 6c 6f 63 6b 2d 6b 65 79 | 77 6f 72 64 73 2d 32 20 |lock-key|words-2 |
|00002ee0| 66 39 30 2d 6b 65 79 77 | 6f 72 64 73 2d 6c 65 76 |f90-keyw|ords-lev|
|00002ef0| 65 6c 2d 33 2d 72 65 20 | 66 39 30 2d 6f 70 65 72 |el-3-re |f90-oper|
|00002f00| 61 74 6f 72 73 2d 72 65 | 20 73 74 72 69 6e 67 2d |ators-re| string-|
|00002f10| 6d 61 74 63 68 20 22 58 | 45 6d 61 63 73 22 20 65 |match "X|Emacs" e|
|00002f20| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 66 39 30 |macs-ver|sion f90|
|00002f30| 2d 70 72 6f 63 65 64 75 | 72 65 73 2d 72 65 20 28 |-procedu|res-re (|
|00002f40| 31 20 66 6f 6e 74 2d 6c | 6f 63 6b 2d 6b 65 79 77 |1 font-l|ock-keyw|
|00002f50| 6f 72 64 2d 66 61 63 65 | 20 74 29 20 28 31 20 66 |ord-face| t) (1 f|
|00002f60| 6f 6e 74 2d 6c 6f 63 6b | 2d 6b 65 79 77 6f 72 64 |ont-lock|-keyword|
|00002f70| 2d 66 61 63 65 20 74 29 | 20 22 5c 5c 3c 72 65 61 |-face t)| "\\<rea|
|00002f80| 6c 5c 5c 3e 22 5d 20 37 | 29 20 28 23 24 20 2e 20 |l\\>"] 7|) (#$ . |
|00002f90| 31 31 38 33 34 29 29 0a | 23 40 33 38 20 48 69 67 |11834)).|#@38 Hig|
|00002fa0| 68 6c 69 67 68 74 73 20 | 61 6c 6c 20 46 39 30 20 |hlights |all F90 |
|00002fb0| 61 6e 64 20 48 50 46 20 | 6b 65 79 77 6f 72 64 73 |and HPF |keywords|
|00002fc0| 2e 1f 0a 28 64 65 66 76 | 61 72 20 66 39 30 2d 66 |...(defv|ar f90-f|
|00002fd0| 6f 6e 74 2d 6c 6f 63 6b | 2d 6b 65 79 77 6f 72 64 |ont-lock|-keyword|
|00002fe0| 73 2d 34 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |s-4 (byt|e-code "|
|00002ff0| c0 09 5c 6e 43 5c 22 87 | 22 20 5b 61 70 70 65 6e |..\nC\".|" [appen|
|00003000| 64 20 66 39 30 2d 66 6f | 6e 74 2d 6c 6f 63 6b 2d |d f90-fo|nt-lock-|
|00003010| 6b 65 79 77 6f 72 64 73 | 2d 33 20 66 39 30 2d 68 |keywords|-3 f90-h|
|00003020| 70 66 2d 6b 65 79 77 6f | 72 64 73 2d 72 65 5d 20 |pf-keywo|rds-re] |
|00003030| 33 29 20 28 23 24 20 2e | 20 31 32 31 38 39 29 29 |3) (#$ .| 12189))|
|00003040| 0a 23 40 34 38 20 2a 44 | 65 66 61 75 6c 74 20 65 |.#@48 *D|efault e|
|00003050| 78 70 72 65 73 73 69 6f | 6e 73 20 74 6f 20 68 69 |xpressio|ns to hi|
|00003060| 67 68 6c 69 67 68 74 20 | 69 6e 20 46 39 30 20 6d |ghlight |in F90 m|
|00003070| 6f 64 65 2e 1f 0a 28 64 | 65 66 76 61 72 20 66 39 |ode...(d|efvar f9|
|00003080| 30 2d 66 6f 6e 74 2d 6c | 6f 63 6b 2d 6b 65 79 77 |0-font-l|ock-keyw|
|00003090| 6f 72 64 73 20 66 39 30 | 2d 66 6f 6e 74 2d 6c 6f |ords f90|-font-lo|
|000030a0| 63 6b 2d 6b 65 79 77 6f | 72 64 73 2d 32 20 28 23 |ck-keywo|rds-2 (#|
|000030b0| 24 20 2e 20 2d 31 32 33 | 35 38 29 29 0a 23 40 34 |$ . -123|58)).#@4|
|000030c0| 32 20 53 79 6e 74 61 78 | 20 74 61 62 6c 65 20 69 |2 Syntax| table i|
|000030d0| 6e 20 75 73 65 20 69 6e | 20 46 39 30 20 6d 6f 64 |n use in| F90 mod|
|000030e0| 65 20 62 75 66 66 65 72 | 73 2e 1f 0a 28 64 65 66 |e buffer|s...(def|
|000030f0| 76 61 72 20 66 39 30 2d | 6d 6f 64 65 2d 73 79 6e |var f90-|mode-syn|
|00003100| 74 61 78 2d 74 61 62 6c | 65 20 6e 69 6c 20 28 23 |tax-tabl|e nil (#|
|00003110| 24 20 2e 20 31 32 34 38 | 32 29 29 0a 28 62 79 74 |$ . 1248|2)).(byt|
|00003120| 65 2d 63 6f 64 65 20 22 | 08 ac e9 c1 20 10 c2 c3 |e-code "|.... ...|
|00003130| c4 08 23 88 c2 c5 c6 08 | 23 88 c2 c7 c8 08 23 88 |..#.....|#.....#.|
|00003140| c2 c9 c8 08 23 88 c2 ca | cb 08 23 88 c2 cc cd 08 |....#...|..#.....|
|00003150| 23 88 c2 ce cf 08 23 88 | c2 d0 cf 08 23 88 c2 d1 |#.....#.|....#...|
|00003160| cf 08 23 88 c2 d2 cf 08 | 23 88 c2 d3 cf 08 23 88 |..#.....|#.....#.|
|00003170| c2 d4 d5 08 23 88 c2 d6 | cf 08 23 88 c2 d7 cf 08 |....#...|..#.....|
|00003180| 23 88 c2 d8 d9 08 23 88 | c2 da d9 08 23 88 c2 db |#.....#.|....#...|
|00003190| d9 08 23 88 c1 87 22 20 | 5b 66 39 30 2d 6d 6f 64 |..#..." |[f90-mod|
|000031a0| 65 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 6d |e-syntax|-table m|
|000031b0| 61 6b 65 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |ake-synt|ax-table|
|000031c0| 20 6d 6f 64 69 66 79 2d | 73 79 6e 74 61 78 2d 65 | modify-|syntax-e|
|000031d0| 6e 74 72 79 20 3f 5c 21 | 20 22 3c 22 20 3f 5c 6e |ntry ?\!| "<" ?\n|
|000031e0| 20 22 3e 22 20 3f 5c 27 | 20 22 5c 22 22 20 3f 5c | ">" ?\'| "\"" ?\|
|000031f0| 22 20 3f 5c 60 20 22 77 | 22 20 3f 5c 72 20 22 20 |" ?\` "w|" ?\r " |
|00003200| 22 20 3f 5c 2b 20 22 2e | 22 20 3f 5c 2d 20 3f 5c |" ?\+ ".|" ?\- ?\|
|00003210| 3d 20 3f 5c 2a 20 3f 5c | 2f 20 3f 5c 5c 20 22 2f |= ?\* ?\|/ ?\\ "/|
|00003220| 22 20 3f 5c 2e 20 3f 5c | 25 20 3f 5c 24 20 22 5f |" ?\. ?\|% ?\$ "_|
|00003230| 22 20 3f 5c 40 20 3f 5c | 5f 5d 20 34 29 0a 23 40 |" ?\@ ?\|_] 4).#@|
|00003240| 32 36 20 4b 65 79 6d 61 | 70 20 75 73 65 64 20 69 |26 Keyma|p used i|
|00003250| 6e 20 46 39 30 20 6d 6f | 64 65 2e 1f 0a 28 64 65 |n F90 mo|de...(de|
|00003260| 66 76 61 72 20 66 39 30 | 2d 6d 6f 64 65 2d 6d 61 |fvar f90|-mode-ma|
|00003270| 70 20 6e 69 6c 20 28 23 | 24 20 2e 20 31 32 38 36 |p nil (#|$ . 1286|
|00003280| 37 29 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |7)).(byt|e-code "|
|00003290| 08 ac dd c1 20 10 c2 08 | c3 c4 23 88 c2 08 c5 c6 |.... ...|..#.....|
|000032a0| 23 88 c2 08 c7 c8 23 88 | c2 08 c9 ca 23 88 c2 08 |#.....#.|....#...|
|000032b0| cb cc 23 88 c2 08 cd ce | 23 88 c2 08 cf d0 23 88 |..#.....|#.....#.|
|000032c0| c2 08 d1 d2 23 88 c2 08 | d3 d4 23 88 c2 08 d5 d6 |....#...|..#.....|
|000032d0| 23 88 c2 08 d7 d8 23 88 | c2 08 d9 da 23 88 c2 08 |#.....#.|....#...|
|000032e0| db dc 23 88 c2 08 dd de | 23 88 c2 08 df e0 23 88 |..#.....|#.....#.|
|000032f0| e1 e2 0e 23 5c 22 ab 97 | e4 e5 21 ac 83 e6 16 25 |...#\"..|..!....%|
|00003300| e5 0e 27 42 16 27 e8 e5 | e9 ea 23 88 82 21 01 c2 |..'B.'..|..#..!..|
|00003310| 08 eb c1 20 23 88 c2 08 | ec ed c1 ee 21 42 23 88 |... #...|....!B#.|
|00003320| c2 08 ef f0 23 88 c2 08 | f1 f2 23 88 c2 08 f3 f4 |....#...|..#.....|
|00003330| 23 88 c2 08 f5 f6 23 88 | c2 08 f7 f8 23 88 c2 08 |#.....#.|....#...|
|00003340| f9 fa 23 88 c2 08 fb fc | 23 88 c2 08 fd fe 23 88 |..#.....|#.....#.|
|00003350| c2 08 ff 81 40 00 23 88 | c2 08 81 41 00 81 42 00 |....@.#.|...A..B.|
|00003360| 23 88 c2 08 81 43 00 81 | 44 00 23 88 c2 08 81 45 |#....C..|D.#....E|
|00003370| 00 81 46 00 23 88 c2 08 | 81 47 00 81 48 00 23 88 |..F.#...|.G..H.#.|
|00003380| c2 08 81 49 00 81 4a 00 | 23 88 c2 08 81 4b 00 81 |...I..J.|#....K..|
|00003390| 4c 00 23 88 c2 08 81 4d | 00 81 4e 00 23 88 c2 08 |L.#....M|..N.#...|
|000033a0| 81 4f 00 81 50 00 23 88 | c2 08 81 51 00 81 52 00 |.O..P.#.|...Q..R.|
|000033b0| 23 88 81 53 00 16 54 81 | 54 00 0e 27 42 16 27 81 |#..S..T.|T..'B.'.|
|000033c0| 55 00 16 56 81 56 00 0e | 27 42 16 27 81 57 00 16 |U..V.V..|'B.'.W..|
|000033d0| 58 81 58 00 0e 27 42 16 | 27 81 59 00 16 5a 81 5a |X.X..'B.|'.Y..Z.Z|
|000033e0| 00 0e 27 42 16 27 81 5b | 00 16 5c 5c 81 5c 5c 00 |..'B.'.[|..\\.\\.|
|000033f0| 0e 27 42 16 27 81 5d 00 | 16 5e 81 5e 00 0e 27 42 |.'B.'.].|.^.^..'B|
|00003400| 16 27 81 5f 00 16 60 81 | 60 00 0e 27 42 16 27 e4 |.'._..`.|`..'B.'.|
|00003410| 81 61 00 21 ac 85 81 62 | 00 16 61 81 61 00 0e 27 |.a.!...b|..a.a..'|
|00003420| 42 16 27 81 63 00 81 61 | 00 21 87 22 20 5b 66 39 |B.'.c..a|.!." [f9|
|00003430| 30 2d 6d 6f 64 65 2d 6d | 61 70 20 6d 61 6b 65 2d |0-mode-m|ap make-|
|00003440| 73 70 61 72 73 65 2d 6b | 65 79 6d 61 70 20 64 65 |sparse-k|eymap de|
|00003450| 66 69 6e 65 2d 6b 65 79 | 20 22 60 22 20 66 39 30 |fine-key| "`" f90|
|00003460| 2d 61 62 62 72 65 76 2d | 73 74 61 72 74 20 22 03 |-abbrev-|start ".|
|00003470| 3b 22 20 66 39 30 2d 63 | 6f 6d 6d 65 6e 74 2d 72 |;" f90-c|omment-r|
|00003480| 65 67 69 6f 6e 20 22 81 | 22 20 66 39 30 2d 62 65 |egion ".|" f90-be|
|00003490| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 73 75 62 70 72 |ginning-|of-subpr|
|000034a0| 6f 67 72 61 6d 20 22 85 | 22 20 66 39 30 2d 65 6e |ogram ".|" f90-en|
|000034b0| 64 2d 6f 66 2d 73 75 62 | 70 72 6f 67 72 61 6d 20 |d-of-sub|program |
|000034c0| 22 88 22 20 66 39 30 2d | 6d 61 72 6b 2d 73 75 62 |"." f90-|mark-sub|
|000034d0| 70 72 6f 67 72 61 6d 20 | 22 91 22 20 66 39 30 2d |program |"." f90-|
|000034e0| 69 6e 64 65 6e 74 2d 73 | 75 62 70 72 6f 67 72 61 |indent-s|ubprogra|
|000034f0| 6d 20 22 5c 6e 22 20 66 | 39 30 2d 69 6e 64 65 6e |m "\n" f|90-inden|
|00003500| 74 2d 6e 65 77 2d 6c 69 | 6e 65 20 22 0d 22 20 6e |t-new-li|ne "." n|
|00003510| 65 77 6c 69 6e 65 20 22 | 03 0d 22 20 66 39 30 2d |ewline "|.." f90-|
|00003520| 62 72 65 61 6b 2d 6c 69 | 6e 65 20 22 03 04 22 20 |break-li|ne ".." |
|00003530| 66 39 30 2d 6a 6f 69 6e | 2d 6c 69 6e 65 73 20 22 |f90-join|-lines "|
|00003540| 03 06 22 20 66 39 30 2d | 66 69 6c 6c 2d 72 65 67 |.." f90-|fill-reg|
|00003550| 69 6f 6e 20 22 03 10 22 | 20 66 39 30 2d 70 72 65 |ion ".."| f90-pre|
|00003560| 76 69 6f 75 73 2d 73 74 | 61 74 65 6d 65 6e 74 20 |vious-st|atement |
|00003570| 22 03 0e 22 20 66 39 30 | 2d 6e 65 78 74 2d 73 74 |".." f90|-next-st|
|00003580| 61 74 65 6d 65 6e 74 20 | 22 03 17 22 20 66 39 30 |atement |".." f90|
|00003590| 2d 69 6e 73 65 72 74 2d | 65 6e 64 20 22 09 22 20 |-insert-|end "." |
|000035a0| 66 39 30 2d 69 6e 64 65 | 6e 74 2d 6c 69 6e 65 20 |f90-inde|nt-line |
|000035b0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 58 45 |string-m|atch "XE|
|000035c0| 6d 61 63 73 22 20 65 6d | 61 63 73 2d 76 65 72 73 |macs" em|acs-vers|
|000035d0| 69 6f 6e 20 62 6f 75 6e | 64 70 20 66 39 30 2d 78 |ion boun|dp f90-x|
|000035e0| 65 6d 61 63 73 2d 6d 65 | 6e 75 20 28 22 46 39 30 |emacs-me|nu ("F90|
|000035f0| 22 20 5b 22 49 6e 64 65 | 6e 74 20 53 75 62 70 72 |" ["Inde|nt Subpr|
|00003600| 6f 67 72 61 6d 22 20 66 | 39 30 2d 69 6e 64 65 6e |ogram" f|90-inden|
|00003610| 74 2d 73 75 62 70 72 6f | 67 72 61 6d 20 74 5d 20 |t-subpro|gram t] |
|00003620| 5b 22 4d 61 72 6b 20 53 | 75 62 70 72 6f 67 72 61 |["Mark S|ubprogra|
|00003630| 6d 22 20 66 39 30 2d 6d | 61 72 6b 2d 73 75 62 70 |m" f90-m|ark-subp|
|00003640| 72 6f 67 72 61 6d 20 74 | 5d 20 5b 22 42 65 67 69 |rogram t|] ["Begi|
|00003650| 6e 6e 69 6e 67 20 6f 66 | 20 53 75 62 70 72 6f 67 |nning of| Subprog|
|00003660| 72 61 6d 22 20 66 39 30 | 2d 62 65 67 69 6e 6e 69 |ram" f90|-beginni|
|00003670| 6e 67 2d 6f 66 2d 73 75 | 62 70 72 6f 67 72 61 6d |ng-of-su|bprogram|
|00003680| 20 74 5d 20 5b 22 45 6e | 64 20 6f 66 20 53 75 62 | t] ["En|d of Sub|
|00003690| 70 72 6f 67 72 61 6d 22 | 20 66 39 30 2d 65 6e 64 |program"| f90-end|
|000036a0| 2d 6f 66 2d 73 75 62 70 | 72 6f 67 72 61 6d 20 74 |-of-subp|rogram t|
|000036b0| 5d 20 22 2d 2d 2d 2d 2d | 22 20 5b 22 28 55 6e 29 |] "-----|" ["(Un)|
|000036c0| 43 6f 6d 6d 65 6e 74 20 | 52 65 67 69 6f 6e 22 20 |Comment |Region" |
|000036d0| 66 39 30 2d 63 6f 6d 6d | 65 6e 74 2d 72 65 67 69 |f90-comm|ent-regi|
|000036e0| 6f 6e 20 74 5d 20 5b 22 | 49 6e 64 65 6e 74 20 52 |on t] ["|Indent R|
|000036f0| 65 67 69 6f 6e 22 20 69 | 6e 64 65 6e 74 2d 72 65 |egion" i|ndent-re|
|00003700| 67 69 6f 6e 20 74 5d 20 | 5b 22 46 69 6c 6c 20 52 |gion t] |["Fill R|
|00003710| 65 67 69 6f 6e 22 20 66 | 39 30 2d 66 69 6c 6c 2d |egion" f|90-fill-|
|00003720| 72 65 67 69 6f 6e 20 74 | 5d 20 22 2d 2d 2d 2d 2d |region t|] "-----|
|00003730| 22 20 5b 22 42 72 65 61 | 6b 20 4c 69 6e 65 20 61 |" ["Brea|k Line a|
|00003740| 74 20 50 6f 69 6e 74 22 | 20 66 39 30 2d 62 72 65 |t Point"| f90-bre|
|00003750| 61 6b 2d 6c 69 6e 65 20 | 74 5d 20 5b 22 4a 6f 69 |ak-line |t] ["Joi|
|00003760| 6e 20 77 69 74 68 20 4e | 65 78 74 20 4c 69 6e 65 |n with N|ext Line|
|00003770| 22 20 66 39 30 2d 6a 6f | 69 6e 2d 6c 69 6e 65 73 |" f90-jo|in-lines|
|00003780| 20 74 5d 20 5b 22 49 6e | 73 65 72 74 20 4e 65 77 | t] ["In|sert New|
|00003790| 6c 69 6e 65 22 20 6e 65 | 77 6c 69 6e 65 20 74 5d |line" ne|wline t]|
|000037a0| 20 5b 22 49 6e 73 65 72 | 74 20 45 6e 64 22 20 66 | ["Inser|t End" f|
|000037b0| 39 30 2d 69 6e 73 65 72 | 74 2d 65 6e 64 20 74 5d |90-inser|t-end t]|
|000037c0| 20 22 2d 2d 2d 2d 2d 22 | 20 5b 22 55 70 63 61 73 | "-----"| ["Upcas|
|000037d0| 65 20 4b 65 79 77 6f 72 | 64 73 20 28 62 75 66 66 |e Keywor|ds (buff|
|000037e0| 65 72 29 22 20 66 39 30 | 2d 75 70 63 61 73 65 2d |er)" f90|-upcase-|
|000037f0| 6b 65 79 77 6f 72 64 73 | 20 74 5d 20 5b 22 55 70 |keywords| t] ["Up|
|00003800| 63 61 73 65 20 4b 65 79 | 77 6f 72 64 73 20 28 72 |case Key|words (r|
|00003810| 65 67 69 6f 6e 29 22 20 | 66 39 30 2d 75 70 63 61 |egion)" |f90-upca|
|00003820| 73 65 2d 72 65 67 69 6f | 6e 2d 6b 65 79 77 6f 72 |se-regio|n-keywor|
|00003830| 64 73 20 74 5d 20 5b 22 | 43 61 70 69 74 61 6c 69 |ds t] ["|Capitali|
|00003840| 7a 65 20 4b 65 79 77 6f | 72 64 73 20 28 62 75 66 |ze Keywo|rds (buf|
|00003850| 66 65 72 29 22 20 66 39 | 30 2d 63 61 70 69 74 61 |fer)" f9|0-capita|
|00003860| 6c 69 7a 65 2d 6b 65 79 | 77 6f 72 64 73 20 74 5d |lize-key|words t]|
|00003870| 20 5b 22 43 61 70 69 74 | 61 6c 69 7a 65 20 4b 65 | ["Capit|alize Ke|
|00003880| 79 77 6f 72 64 73 20 28 | 72 65 67 69 6f 6e 29 22 |ywords (|region)"|
|00003890| 20 66 39 30 2d 63 61 70 | 69 74 61 6c 69 7a 65 2d | f90-cap|italize-|
|000038a0| 72 65 67 69 6f 6e 2d 6b | 65 79 77 6f 72 64 73 20 |region-k|eywords |
|000038b0| 74 5d 20 5b 22 44 6f 77 | 6e 63 61 73 65 20 4b 65 |t] ["Dow|ncase Ke|
|000038c0| 79 77 6f 72 64 73 20 28 | 62 75 66 66 65 72 29 22 |ywords (|buffer)"|
|000038d0| 20 66 39 30 2d 64 6f 77 | 6e 63 61 73 65 2d 6b 65 | f90-dow|ncase-ke|
|000038e0| 79 77 6f 72 64 73 20 74 | 5d 20 5b 22 44 6f 77 6e |ywords t|] ["Down|
|000038f0| 63 61 73 65 20 4b 65 79 | 77 6f 72 64 73 20 28 72 |case Key|words (r|
|00003900| 65 67 69 6f 6e 29 22 20 | 66 39 30 2d 64 6f 77 6e |egion)" |f90-down|
|00003910| 63 61 73 65 2d 72 65 67 | 69 6f 6e 2d 6b 65 79 77 |case-reg|ion-keyw|
|00003920| 6f 72 64 73 20 74 5d 20 | 22 2d 2d 2d 2d 2d 22 20 |ords t] |"-----" |
|00003930| 5b 22 54 6f 67 67 6c 65 | 20 61 62 62 72 65 76 2d |["Toggle| abbrev-|
|00003940| 6d 6f 64 65 22 20 61 62 | 62 72 65 76 2d 6d 6f 64 |mode" ab|brev-mod|
|00003950| 65 20 74 5d 20 5b 22 54 | 6f 67 67 6c 65 20 61 75 |e t] ["T|oggle au|
|00003960| 74 6f 2d 66 69 6c 6c 22 | 20 66 39 30 2d 61 75 74 |to-fill"| f90-aut|
|00003970| 6f 2d 66 69 6c 6c 2d 6d | 6f 64 65 20 74 5d 29 20 |o-fill-m|ode t]) |
|00003980| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00003990| 74 20 70 75 74 20 76 61 | 72 69 61 62 6c 65 2d 64 |t put va|riable-d|
|000039a0| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 22 58 45 |ocumenta|tion "XE|
|000039b0| 6d 61 63 73 20 6d 65 6e | 75 20 66 6f 72 20 46 39 |macs men|u for F9|
|000039c0| 30 20 6d 6f 64 65 2e 22 | 20 5b 6d 65 6e 75 2d 62 |0 mode."| [menu-b|
|000039d0| 61 72 5d 20 5b 6d 65 6e | 75 2d 62 61 72 20 66 39 |ar] [men|u-bar f9|
|000039e0| 30 5d 20 22 46 39 30 22 | 20 22 66 39 30 22 20 5b |0] "F90"| "f90" [|
|000039f0| 6d 65 6e 75 2d 62 61 72 | 20 66 39 30 20 61 62 62 |menu-bar| f90 abb|
|00003a00| 72 65 76 2d 6d 6f 64 65 | 5d 20 28 22 54 6f 67 67 |rev-mode|] ("Togg|
|00003a10| 6c 65 20 61 62 62 72 65 | 76 2d 6d 6f 64 65 22 20 |le abbre|v-mode" |
|00003a20| 2e 20 61 62 62 72 65 76 | 2d 6d 6f 64 65 29 20 5b |. abbrev|-mode) [|
|00003a30| 6d 65 6e 75 2d 62 61 72 | 20 66 39 30 20 66 39 30 |menu-bar| f90 f90|
|00003a40| 2d 61 75 74 6f 2d 66 69 | 6c 6c 2d 6d 6f 64 65 5d |-auto-fi|ll-mode]|
|00003a50| 20 28 22 54 6f 67 67 6c | 65 20 61 75 74 6f 2d 66 | ("Toggl|e auto-f|
|00003a60| 69 6c 6c 22 20 2e 20 66 | 39 30 2d 61 75 74 6f 2d |ill" . f|90-auto-|
|00003a70| 66 69 6c 6c 2d 6d 6f 64 | 65 29 20 5b 6d 65 6e 75 |fill-mod|e) [menu|
|00003a80| 2d 62 61 72 20 66 39 30 | 20 66 39 30 2d 64 6f 77 |-bar f90| f90-dow|
|00003a90| 6e 63 61 73 65 2d 72 65 | 67 69 6f 6e 2d 6b 65 79 |ncase-re|gion-key|
|00003aa0| 77 6f 72 64 73 5d 20 28 | 22 44 6f 77 6e 63 61 73 |words] (|"Downcas|
|00003ab0| 65 20 4b 65 79 77 6f 72 | 64 73 20 28 72 65 67 69 |e Keywor|ds (regi|
|00003ac0| 6f 6e 29 22 20 2e 20 66 | 39 30 2d 64 6f 77 6e 63 |on)" . f|90-downc|
|00003ad0| 61 73 65 2d 72 65 67 69 | 6f 6e 2d 6b 65 79 77 6f |ase-regi|on-keywo|
|00003ae0| 72 64 73 29 20 5b 6d 65 | 6e 75 2d 62 61 72 20 66 |rds) [me|nu-bar f|
|00003af0| 39 30 20 66 39 30 2d 64 | 6f 77 6e 63 61 73 65 2d |90 f90-d|owncase-|
|00003b00| 6b 65 79 77 6f 72 64 73 | 5d 20 28 22 44 6f 77 6e |keywords|] ("Down|
|00003b10| 63 61 73 65 20 4b 65 79 | 77 6f 72 64 73 20 28 62 |case Key|words (b|
|00003b20| 75 66 66 65 72 29 22 20 | 2e 20 66 39 30 2d 64 6f |uffer)" |. f90-do|
|00003b30| 77 6e 63 61 73 65 2d 6b | 65 79 77 6f 72 64 73 29 |wncase-k|eywords)|
|00003b40| 20 5b 6d 65 6e 75 2d 62 | 61 72 20 66 39 30 20 66 | [menu-b|ar f90 f|
|00003b50| 39 30 2d 63 61 70 69 74 | 61 6c 69 7a 65 2d 6b 65 |90-capit|alize-ke|
|00003b60| 79 77 6f 72 64 73 5d 20 | 28 22 43 61 70 69 74 61 |ywords] |("Capita|
|00003b70| 6c 69 7a 65 20 4b 65 79 | 77 6f 72 64 73 20 28 72 |lize Key|words (r|
|00003b80| 65 67 69 6f 6e 29 22 20 | 2e 20 66 39 30 2d 63 61 |egion)" |. f90-ca|
|00003b90| 70 69 74 61 6c 69 7a 65 | 2d 72 65 67 69 6f 6e 2d |pitalize|-region-|
|00003ba0| 6b 65 79 77 6f 72 64 73 | 29 20 5b 6d 65 6e 75 2d |keywords|) [menu-|
|00003bb0| 62 61 72 20 66 39 30 20 | 66 39 30 2d 63 61 70 69 |bar f90 |f90-capi|
|00003bc0| 74 61 6c 69 7a 65 2d 72 | 65 67 69 6f 6e 2d 6b 65 |talize-r|egion-ke|
|00003bd0| 79 77 6f 72 64 73 5d 20 | 28 22 43 61 70 69 74 61 |ywords] |("Capita|
|00003be0| 6c 69 7a 65 20 4b 65 79 | 77 6f 72 64 73 20 28 62 |lize Key|words (b|
|00003bf0| 75 66 66 65 72 29 22 20 | 2e 20 66 39 30 2d 63 61 |uffer)" |. f90-ca|
|00003c00| 70 69 74 61 6c 69 7a 65 | 2d 6b 65 79 77 6f 72 64 |pitalize|-keyword|
|00003c10| 73 29 20 5b 6d 65 6e 75 | 2d 62 61 72 20 66 39 30 |s) [menu|-bar f90|
|00003c20| 20 66 39 30 2d 75 70 63 | 61 73 65 2d 72 65 67 69 | f90-upc|ase-regi|
|00003c30| 6f 6e 2d 6b 65 79 77 6f | 72 64 73 5d 20 28 22 55 |on-keywo|rds] ("U|
|00003c40| 70 63 61 73 65 20 4b 65 | 79 77 6f 72 64 73 20 28 |pcase Ke|ywords (|
|00003c50| 72 65 67 69 6f 6e 29 22 | 20 2e 20 66 39 30 2d 75 |region)"| . f90-u|
|00003c60| 70 63 61 73 65 2d 72 65 | 67 69 6f 6e 2d 6b 65 79 |pcase-re|gion-key|
|00003c70| 77 6f 72 64 73 29 20 5b | 6d 65 6e 75 2d 62 61 72 |words) [|menu-bar|
|00003c80| 20 66 39 30 20 66 39 30 | 2d 75 70 63 61 73 65 2d | f90 f90|-upcase-|
|00003c90| 6b 65 79 77 6f 72 64 73 | 5d 20 28 22 55 70 63 61 |keywords|] ("Upca|
|00003ca0| 73 65 20 4b 65 79 77 6f | 72 64 73 20 28 62 75 66 |se Keywo|rds (buf|
|00003cb0| 66 65 72 29 22 20 2e 20 | 66 39 30 2d 75 70 63 61 |fer)" . |f90-upca|
|00003cc0| 73 65 2d 6b 65 79 77 6f | 72 64 73 29 20 5b 6d 65 |se-keywo|rds) [me|
|00003cd0| 6e 75 2d 62 61 72 20 66 | 39 30 20 66 39 30 2d 69 |nu-bar f|90 f90-i|
|00003ce0| 6e 73 65 72 74 2d 65 6e | 64 5d 20 28 22 49 6e 73 |nsert-en|d] ("Ins|
|00003cf0| 65 72 74 20 65 6e 64 22 | 20 2e 20 66 39 30 2d 69 |ert end"| . f90-i|
|00003d00| 6e 73 65 72 74 2d 65 6e | 64 29 20 5b 6d 65 6e 75 |nsert-en|d) [menu|
|00003d10| 2d 62 61 72 20 66 39 30 | 20 66 39 30 2d 6a 6f 69 |-bar f90| f90-joi|
|00003d20| 6e 2d 6c 69 6e 65 73 5d | 20 28 22 4a 6f 69 6e 20 |n-lines]| ("Join |
|00003d30| 77 69 74 68 20 4e 65 78 | 74 20 4c 69 6e 65 22 20 |with Nex|t Line" |
|00003d40| 2e 20 66 39 30 2d 6a 6f | 69 6e 2d 6c 69 6e 65 73 |. f90-jo|in-lines|
|00003d50| 29 20 5b 6d 65 6e 75 2d | 62 61 72 20 66 39 30 20 |) [menu-|bar f90 |
|00003d60| 66 39 30 2d 62 72 65 61 | 6b 2d 6c 69 6e 65 5d 20 |f90-brea|k-line] |
|00003d70| 28 22 42 72 65 61 6b 20 | 4c 69 6e 65 20 61 74 20 |("Break |Line at |
|00003d80| 50 6f 69 6e 74 22 20 2e | 20 66 39 30 2d 62 72 65 |Point" .| f90-bre|
|00003d90| 61 6b 2d 6c 69 6e 65 29 | 20 5b 6d 65 6e 75 2d 62 |ak-line)| [menu-b|
|00003da0| 61 72 20 66 39 30 20 66 | 39 30 2d 66 69 6c 6c 2d |ar f90 f|90-fill-|
|00003db0| 72 65 67 69 6f 6e 5d 20 | 28 22 46 69 6c 6c 20 52 |region] |("Fill R|
|00003dc0| 65 67 69 6f 6e 22 20 2e | 20 66 39 30 2d 66 69 6c |egion" .| f90-fil|
|00003dd0| 6c 2d 72 65 67 69 6f 6e | 29 20 5b 6d 65 6e 75 2d |l-region|) [menu-|
|00003de0| 62 61 72 20 66 39 30 20 | 69 6e 64 65 6e 74 2d 72 |bar f90 |indent-r|
|00003df0| 65 67 69 6f 6e 5d 20 28 | 22 49 6e 64 65 6e 74 20 |egion] (|"Indent |
|00003e00| 52 65 67 69 6f 6e 22 20 | 2e 20 69 6e 64 65 6e 74 |Region" |. indent|
|00003e10| 2d 72 65 67 69 6f 6e 29 | 20 5b 6d 65 6e 75 2d 62 |-region)| [menu-b|
|00003e20| 61 72 20 66 39 30 20 66 | 39 30 2d 63 6f 6d 6d 65 |ar f90 f|90-comme|
|00003e30| 6e 74 2d 72 65 67 69 6f | 6e 5d 20 28 22 28 55 6e |nt-regio|n] ("(Un|
|00003e40| 29 43 6f 6d 6d 65 6e 74 | 20 52 65 67 69 6f 6e 22 |)Comment| Region"|
|00003e50| 20 2e 20 66 39 30 2d 63 | 6f 6d 6d 65 6e 74 2d 72 | . f90-c|omment-r|
|00003e60| 65 67 69 6f 6e 29 20 5b | 6d 65 6e 75 2d 62 61 72 |egion) [|menu-bar|
|00003e70| 20 66 39 30 20 66 39 30 | 2d 65 6e 64 2d 6f 66 2d | f90 f90|-end-of-|
|00003e80| 73 75 62 70 72 6f 67 72 | 61 6d 5d 20 28 22 45 6e |subprogr|am] ("En|
|00003e90| 64 20 6f 66 20 53 75 62 | 70 72 6f 67 72 61 6d 22 |d of Sub|program"|
|00003ea0| 20 2e 20 66 39 30 2d 65 | 6e 64 2d 6f 66 2d 73 75 | . f90-e|nd-of-su|
|00003eb0| 62 70 72 6f 67 72 61 6d | 29 20 5b 6d 65 6e 75 2d |bprogram|) [menu-|
|00003ec0| 62 61 72 20 66 39 30 20 | 66 39 30 2d 62 65 67 69 |bar f90 |f90-begi|
|00003ed0| 6e 6e 69 6e 67 2d 6f 66 | 2d 73 75 62 70 72 6f 67 |nning-of|-subprog|
|00003ee0| 72 61 6d 5d 20 28 22 42 | 65 67 69 6e 6e 69 6e 67 |ram] ("B|eginning|
|00003ef0| 20 6f 66 20 53 75 62 70 | 72 6f 67 72 61 6d 22 20 | of Subp|rogram" |
|00003f00| 2e 20 66 39 30 2d 62 65 | 67 69 6e 6e 69 6e 67 2d |. f90-be|ginning-|
|00003f10| 6f 66 2d 73 75 62 70 72 | 6f 67 72 61 6d 29 20 5b |of-subpr|ogram) [|
|00003f20| 6d 65 6e 75 2d 62 61 72 | 20 66 39 30 20 66 39 30 |menu-bar| f90 f90|
|00003f30| 2d 6d 61 72 6b 2d 73 75 | 62 70 72 6f 67 72 61 6d |-mark-su|bprogram|
|00003f40| 5d 20 28 22 4d 61 72 6b | 20 53 75 62 70 72 6f 67 |] ("Mark| Subprog|
|00003f50| 72 61 6d 22 20 2e 20 66 | 39 30 2d 6d 61 72 6b 2d |ram" . f|90-mark-|
|00003f60| 73 75 62 70 72 6f 67 72 | 61 6d 29 20 5b 6d 65 6e |subprogr|am) [men|
|00003f70| 75 2d 62 61 72 20 66 39 | 30 20 66 39 30 2d 69 6e |u-bar f9|0 f90-in|
|00003f80| 64 65 6e 74 2d 73 75 62 | 70 72 6f 67 72 61 6d 5d |dent-sub|program]|
|00003f90| 20 28 22 49 6e 64 65 6e | 74 20 53 75 62 70 72 6f | ("Inden|t Subpro|
|00003fa0| 67 72 61 6d 22 20 2e 20 | 66 39 30 2d 69 6e 64 65 |gram" . |f90-inde|
|00003fb0| 6e 74 2d 73 75 62 70 72 | 6f 67 72 61 6d 29 20 22 |nt-subpr|ogram) "|
|00003fc0| 5c 5c 28 62 6c 6f 63 6b | 5b 20 09 5d 2a 64 61 74 |\\(block|[ .]*dat|
|00003fd0| 61 5c 5c 7c 64 6f 5c 5c | 7c 69 66 5c 5c 7c 69 6e |a\\|do\\||if\\|in|
|00003fe0| 74 65 72 66 61 63 65 5c | 5c 7c 66 75 6e 63 74 69 |terface\|\|functi|
|00003ff0| 6f 6e 5c 5c 7c 6d 6f 64 | 75 6c 65 5c 5c 7c 70 72 |on\\|mod|ule\\|pr|
|00004000| 6f 67 72 61 6d 5c 5c 7c | 73 65 6c 65 63 74 5c 5c |ogram\\||select\\|
|00004010| 7c 73 75 62 72 6f 75 74 | 69 6e 65 5c 5c 7c 74 79 ||subrout|ine\\|ty|
|00004020| 70 65 5c 5c 7c 77 68 65 | 72 65 5c 5c 7c 66 6f 72 |pe\\|whe|re\\|for|
|00004030| 61 6c 6c 5c 5c 29 5c 5c | 3e 22 20 66 39 30 2d 62 |all\\)\\|>" f90-b|
|00004040| 6c 6f 63 6b 73 2d 72 65 | 20 22 5c 5c 28 70 72 6f |locks-re| "\\(pro|
|00004050| 67 72 61 6d 5c 5c 7c 6d | 6f 64 75 6c 65 5c 5c 7c |gram\\|m|odule\\||
|00004060| 73 75 62 72 6f 75 74 69 | 6e 65 5c 5c 7c 66 75 6e |subrouti|ne\\|fun|
|00004070| 63 74 69 6f 6e 5c 5c 29 | 22 20 66 39 30 2d 70 72 |ction\\)|" f90-pr|
|00004080| 6f 67 72 61 6d 2d 62 6c | 6f 63 6b 2d 72 65 20 22 |ogram-bl|ock-re "|
|00004090| 5c 5c 28 65 6c 73 65 5c | 5c 28 5b 20 09 5d 2a 69 |\\(else\|\([ .]*i|
|000040a0| 66 5c 5c 7c 77 68 65 72 | 65 5c 5c 29 3f 5c 5c 7c |f\\|wher|e\\)?\\||
|000040b0| 63 61 73 65 5b 20 09 5d | 2a 5c 5c 28 64 65 66 61 |case[ .]|*\\(defa|
|000040c0| 75 6c 74 5c 5c 7c 28 5c | 5c 29 5c 5c 29 22 20 66 |ult\\|(\|\)\\)" f|
|000040d0| 39 30 2d 65 6c 73 65 2d | 6c 69 6b 65 2d 72 65 20 |90-else-|like-re |
|000040e0| 22 65 6e 64 5b 20 09 5d | 2a 5c 5c 28 69 66 5c 5c |"end[ .]|*\\(if\\|
|000040f0| 7c 73 65 6c 65 63 74 5c | 5c 7c 77 68 65 72 65 5c ||select\|\|where\|
|00004100| 5c 7c 66 6f 72 61 6c 6c | 5c 5c 29 5c 5c 3e 22 20 |\|forall|\\)\\>" |
|00004110| 66 39 30 2d 65 6e 64 2d | 69 66 2d 72 65 20 22 65 |f90-end-|if-re "e|
|00004120| 6e 64 5b 20 09 5d 2a 5c | 5c 28 74 79 70 65 5c 5c |nd[ .]*\|\(type\\|
|00004130| 7c 69 6e 74 65 72 66 61 | 63 65 5c 5c 7c 62 6c 6f ||interfa|ce\\|blo|
|00004140| 63 6b 5b 20 09 5d 2a 64 | 61 74 61 5c 5c 29 22 20 |ck[ .]*d|ata\\)" |
|00004150| 66 39 30 2d 65 6e 64 2d | 74 79 70 65 2d 72 65 20 |f90-end-|type-re |
|00004160| 22 5c 5c 3c 5c 5c 28 74 | 79 70 65 5c 5c 29 5b 20 |"\\<\\(t|ype\\)[ |
|00004170| 09 5d 2a 5c 5c 28 2c 2e | 2a 3a 3a 5b 20 09 5d 2a |.]*\\(,.|*::[ .]*|
|00004180| 5c 5c 7c 5b 20 09 5d 2b | 5c 5c 29 5c 5c 28 5c 5c |\\|[ .]+|\\)\\(\\|
|00004190| 73 77 2b 5c 5c 29 22 20 | 66 39 30 2d 74 79 70 65 |sw+\\)" |f90-type|
|000041a0| 2d 64 65 66 2d 72 65 20 | 22 5c 5c 28 5c 5c 2a 5c |-def-re |"\\(\\*\|
|000041b0| 5c 2a 5c 5c 7c 2f 2f 5c | 5c 7c 3d 3e 5c 5c 29 22 |\*\\|//\|\|=>\\)"|
|000041c0| 20 66 39 30 2d 6e 6f 2d | 62 72 65 61 6b 2d 72 65 | f90-no-|break-re|
|000041d0| 20 66 39 30 2d 63 61 63 | 68 65 2d 70 6f 73 69 74 | f90-cac|he-posit|
|000041e0| 69 6f 6e 20 6e 69 6c 20 | 6d 61 6b 65 2d 76 61 72 |ion nil |make-var|
|000041f0| 69 61 62 6c 65 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |iable-bu|ffer-loc|
|00004200| 61 6c 5d 20 36 29 0a 23 | 40 34 30 20 69 6d 65 6e |al] 6).#|@40 imen|
|00004210| 75 20 67 65 6e 65 72 69 | 63 20 65 78 70 72 65 73 |u generi|c expres|
|00004220| 73 69 6f 6e 20 66 6f 72 | 20 46 39 30 20 6d 6f 64 |sion for| F90 mod|
|00004230| 65 2e 1f 0a 28 64 65 66 | 76 61 72 20 66 39 30 2d |e...(def|var f90-|
|00004240| 69 6d 65 6e 75 2d 67 65 | 6e 65 72 69 63 2d 65 78 |imenu-ge|neric-ex|
|00004250| 70 72 65 73 73 69 6f 6e | 20 28 62 79 74 65 2d 63 |pression| (byte-c|
|00004260| 6f 64 65 20 22 c0 c1 c2 | c3 c4 c5 c6 c7 b0 08 c8 |ode "...|........|
|00004270| c9 ca cb 46 42 87 22 20 | 5b 22 5e 5b 20 09 30 2d |...FB." |["^[ .0-|
|00004280| 39 5d 2a 5c 5c 28 22 20 | 22 70 72 6f 67 72 61 6d |9]*\\(" |"program|
|00004290| 5b 20 09 5d 2b 5c 5c 28 | 5c 5c 73 77 2b 5c 5c 29 |[ .]+\\(|\\sw+\\)|
|000042a0| 5c 5c 7c 22 20 22 6d 6f | 64 75 6c 65 5b 20 09 5d |\\|" "mo|dule[ .]|
|000042b0| 2b 5c 5c 28 5c 5c 73 77 | 2b 5c 5c 29 5b 20 09 5d |+\\(\\sw|+\\)[ .]|
|000042c0| 2a 5c 5c 28 21 5c 5c 7c | 24 5c 5c 29 5c 5c 7c 22 |*\\(!\\||$\\)\\|"|
|000042d0| 20 22 5c 5c 28 70 75 72 | 65 5c 5c 7c 72 65 63 75 | "\\(pur|e\\|recu|
|000042e0| 72 73 69 76 65 5c 5c 7c | 65 78 74 72 69 6e 73 69 |rsive\\||extrinsi|
|000042f0| 63 28 5b 5e 29 5d 2b 29 | 5c 5c 29 3f 5b 20 09 5d |c([^)]+)|\\)?[ .]|
|00004300| 2a 22 20 22 73 75 62 72 | 6f 75 74 69 6e 65 5b 20 |*" "subr|outine[ |
|00004310| 09 5d 2b 5c 5c 28 5c 5c | 73 77 2b 5c 5c 29 5c 5c |.]+\\(\\|sw+\\)\\|
|00004320| 7c 22 20 22 5c 5c 28 5b | 5e 21 5d 2a 5c 5c 28 5b ||" "\\([|^!]*\\([|
|00004330| 5e 65 21 5d 2e 5b 5e 20 | 09 21 5d 5c 5c 7c 2e 5b |^e!].[^ |.!]\\|.[|
|00004340| 5e 6e 21 5d 5b 5e 20 09 | 21 5d 5c 5c 7c 2e 2e 5b |^n!][^ .|!]\\|..[|
|00004350| 5e 64 20 09 21 5d 5c 5c | 29 22 20 22 5c 5c 7c 5b |^d .!]\\|)" "\\|[|
|00004360| 5e 21 5d 3f 5b 5e 21 5d | 3f 5c 5c 29 5b 20 09 5d |^!]?[^!]|?\\)[ .]|
|00004370| 2a 66 75 6e 63 74 69 6f | 6e 5b 20 09 5d 2b 5c 5c |*functio|n[ .]+\\|
|00004380| 28 5c 5c 73 77 2b 5c 5c | 29 22 20 22 5c 5c 29 22 |(\\sw+\\|)" "\\)"|
|00004390| 20 32 20 33 20 36 20 39 | 5d 20 38 29 20 28 23 24 | 2 3 6 9|] 8) (#$|
|000043a0| 20 2e 20 31 36 39 30 38 | 29 29 0a 28 62 79 74 65 | . 16908|)).(byte|
|000043b0| 2d 63 6f 64 65 20 22 c0 | c1 21 ac 82 c2 11 c1 0b |-code ".|.!......|
|000043c0| 42 13 09 84 f0 01 0c 1d | c6 c1 c2 5c 22 88 c7 09 |B.......|...\"...|
|000043d0| c8 c9 c2 24 88 c7 09 ca | cb c2 24 88 c7 09 cc cd |...$....|..$.....|
|000043e0| c2 24 88 c7 09 ce cf c2 | 24 88 c7 09 d0 d1 c2 24 |.$......|$......$|
|000043f0| 88 c7 09 d2 d3 c2 24 88 | c7 09 d4 d5 c2 24 88 c7 |......$.|.....$..|
|00004400| 09 d6 d7 c2 24 88 c7 09 | d8 d9 c2 24 88 c7 09 da |....$...|...$....|
|00004410| db c2 24 88 c7 09 dc dd | c2 24 88 c7 09 de df c2 |..$.....|.$......|
|00004420| 24 88 c7 09 e0 e1 c2 24 | 88 c7 09 e2 e3 c2 24 88 |$......$|......$.|
|00004430| c7 09 e4 e5 c2 24 88 c7 | 09 e6 e7 c2 24 88 c7 09 |.....$..|....$...|
|00004440| e8 e9 c2 24 88 c7 09 ea | eb c2 24 88 c7 09 ec ed |...$....|..$.....|
|00004450| c2 24 88 c7 09 ee ef c2 | 24 88 c7 09 f0 f1 c2 24 |.$......|$......$|
|00004460| 88 c7 09 f2 f3 c2 24 88 | c7 09 f4 f5 c2 24 88 c7 |......$.|.....$..|
|00004470| 09 f6 f7 c2 24 88 c7 09 | f8 f9 c2 24 88 c7 09 fa |....$...|...$....|
|00004480| fb c2 24 88 c7 09 fc fd | c2 24 88 c7 09 fe ff c2 |..$.....|.$......|
|00004490| 24 88 c7 09 81 40 00 81 | 41 00 c2 24 88 c7 09 81 |$....@..|A..$....|
|000044a0| 42 00 81 43 00 c2 24 88 | c7 09 81 44 00 81 45 00 |B..C..$.|...D..E.|
|000044b0| c2 24 88 c7 09 81 46 00 | 81 47 00 c2 24 88 c7 09 |.$....F.|.G..$...|
|000044c0| 81 48 00 81 49 00 c2 24 | 88 c7 09 81 4a 00 81 4b |.H..I..$|....J..K|
|000044d0| 00 c2 24 88 c7 09 81 4c | 00 81 4d 00 c2 24 88 c7 |..$....L|..M..$..|
|000044e0| 09 81 4e 00 81 4f 00 c2 | 24 88 c7 09 81 50 00 81 |..N..O..|$....P..|
|000044f0| 51 00 c2 24 88 c7 09 81 | 52 00 81 53 00 c2 24 88 |Q..$....|R..S..$.|
|00004500| c7 09 81 54 00 81 55 00 | c2 24 88 c7 09 81 56 00 |...T..U.|.$....V.|
|00004510| 81 57 00 c2 24 88 c7 09 | 81 58 00 81 59 00 c2 24 |.W..$...|.X..Y..$|
|00004520| 88 c7 09 81 5a 00 81 5b | 00 c2 24 88 c7 09 81 5c |....Z..[|..$....\|
|00004530| 5c 00 81 5d 00 c2 24 88 | c7 09 81 5e 00 81 5f 00 |\..]..$.|...^.._.|
|00004540| c2 24 88 c7 09 81 60 00 | 81 61 00 c2 24 88 c7 09 |.$....`.|.a..$...|
|00004550| 81 62 00 81 63 00 c2 24 | 88 c7 09 81 64 00 81 65 |.b..c..$|....d..e|
|00004560| 00 c2 24 88 c7 09 81 66 | 00 81 67 00 c2 24 88 c7 |..$....f|..g..$..|
|00004570| 09 81 68 00 81 69 00 c2 | 24 88 c7 09 81 6a 00 81 |..h..i..|$....j..|
|00004580| 6b 00 c2 24 88 c7 09 81 | 6c 00 81 6d 00 c2 24 88 |k..$....|l..m..$.|
|00004590| c7 09 81 6e 00 81 6f 00 | c2 24 88 c7 09 81 70 00 |...n..o.|.$....p.|
|000045a0| 81 71 00 c2 24 88 0d 14 | 29 c2 87 22 20 5b 62 6f |.q..$...|).." [bo|
|000045b0| 75 6e 64 70 20 66 39 30 | 2d 6d 6f 64 65 2d 61 62 |undp f90|-mode-ab|
|000045c0| 62 72 65 76 2d 74 61 62 | 6c 65 20 6e 69 6c 20 63 |brev-tab|le nil c|
|000045d0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|000045e0| 20 61 62 62 72 65 76 73 | 2d 63 68 61 6e 67 65 64 | abbrevs|-changed|
|000045f0| 20 61 63 20 64 65 66 69 | 6e 65 2d 61 62 62 72 65 | ac defi|ne-abbre|
|00004600| 76 2d 74 61 62 6c 65 20 | 64 65 66 69 6e 65 2d 61 |v-table |define-a|
|00004610| 62 62 72 65 76 20 22 60 | 61 6c 22 20 22 61 6c 6c |bbrev "`|al" "all|
|00004620| 6f 63 61 74 65 22 20 22 | 60 61 62 22 20 22 61 6c |ocate" "|`ab" "al|
|00004630| 6c 6f 63 61 74 61 62 6c | 65 22 20 22 60 61 73 22 |locatabl|e" "`as"|
|00004640| 20 22 61 73 73 69 67 6e | 6d 65 6e 74 22 20 22 60 | "assign|ment" "`|
|00004650| 62 61 22 20 22 62 61 63 | 6b 73 70 61 63 65 22 20 |ba" "bac|kspace" |
|00004660| 22 60 62 64 22 20 22 62 | 6c 6f 63 6b 20 64 61 74 |"`bd" "b|lock dat|
|00004670| 61 22 20 22 60 63 22 20 | 22 63 68 61 72 61 63 74 |a" "`c" |"charact|
|00004680| 65 72 22 20 22 60 63 6c | 22 20 22 63 6c 6f 73 65 |er" "`cl|" "close|
|00004690| 22 20 22 60 63 6d 22 20 | 22 63 6f 6d 6d 6f 6e 22 |" "`cm" |"common"|
|000046a0| 20 22 60 63 78 22 20 22 | 63 6f 6d 70 6c 65 78 22 | "`cx" "|complex"|
|000046b0| 20 22 60 63 6e 22 20 22 | 63 6f 6e 74 61 69 6e 73 | "`cn" "|contains|
|000046c0| 22 20 22 60 63 79 22 20 | 22 63 79 63 6c 65 22 20 |" "`cy" |"cycle" |
|000046d0| 22 60 64 65 22 20 22 64 | 65 61 6c 6c 6f 63 61 74 |"`de" "d|eallocat|
|000046e0| 65 22 20 22 60 64 66 22 | 20 22 64 65 66 69 6e 65 |e" "`df"| "define|
|000046f0| 22 20 22 60 64 69 22 20 | 22 64 69 6d 65 6e 73 69 |" "`di" |"dimensi|
|00004700| 6f 6e 22 20 22 60 64 77 | 22 20 22 64 6f 20 77 68 |on" "`dw|" "do wh|
|00004710| 69 6c 65 22 20 22 60 65 | 6c 22 20 22 65 6c 73 65 |ile" "`e|l" "else|
|00004720| 22 20 22 60 65 6c 69 22 | 20 22 65 6c 73 65 20 69 |" "`eli"| "else i|
|00004730| 66 22 20 22 60 65 6c 77 | 22 20 22 65 6c 73 65 77 |f" "`elw|" "elsew|
|00004740| 68 65 72 65 22 20 22 60 | 65 71 22 20 22 65 71 75 |here" "`|eq" "equ|
|00004750| 69 76 61 6c 65 6e 63 65 | 22 20 22 60 65 78 22 20 |ivalence|" "`ex" |
|00004760| 22 65 78 74 65 72 6e 61 | 6c 22 20 22 60 65 79 22 |"externa|l" "`ey"|
|00004770| 20 22 65 6e 74 72 79 22 | 20 22 60 66 6c 22 20 22 | "entry"| "`fl" "|
|00004780| 66 6f 72 61 6c 6c 22 20 | 22 60 66 6f 22 20 22 66 |forall" |"`fo" "f|
|00004790| 6f 72 6d 61 74 22 20 22 | 60 66 75 22 20 22 66 75 |ormat" "|`fu" "fu|
|000047a0| 6e 63 74 69 6f 6e 22 20 | 22 60 66 61 22 20 22 2e |nction" |"`fa" ".|
|000047b0| 66 61 6c 73 65 2e 22 20 | 22 60 69 6d 22 20 22 69 |false." |"`im" "i|
|000047c0| 6d 70 6c 69 63 69 74 20 | 6e 6f 6e 65 22 20 22 60 |mplicit |none" "`|
|000047d0| 69 6e 20 22 20 22 69 6e | 63 6c 75 64 65 22 20 22 |in " "in|clude" "|
|000047e0| 60 69 22 20 22 69 6e 74 | 65 67 65 72 22 20 22 60 |`i" "int|eger" "`|
|000047f0| 69 74 22 20 22 69 6e 74 | 65 6e 74 22 20 22 60 69 |it" "int|ent" "`i|
|00004800| 66 22 20 22 69 6e 74 65 | 72 66 61 63 65 22 20 22 |f" "inte|rface" "|
|00004810| 60 6c 6f 22 20 22 6c 6f | 67 69 63 61 6c 22 20 22 |`lo" "lo|gical" "|
|00004820| 60 6d 6f 22 20 22 6d 6f | 64 75 6c 65 22 20 22 60 |`mo" "mo|dule" "`|
|00004830| 6e 61 22 20 22 6e 61 6d | 65 6c 69 73 74 22 20 22 |na" "nam|elist" "|
|00004840| 60 6e 75 22 20 22 6e 75 | 6c 6c 69 66 79 22 20 22 |`nu" "nu|llify" "|
|00004850| 60 6f 70 22 20 22 6f 70 | 74 69 6f 6e 61 6c 22 20 |`op" "op|tional" |
|00004860| 22 60 70 61 22 20 22 70 | 61 72 61 6d 65 74 65 72 |"`pa" "p|arameter|
|00004870| 22 20 22 60 70 6f 22 20 | 22 70 6f 69 6e 74 65 72 |" "`po" |"pointer|
|00004880| 22 20 22 60 70 72 22 20 | 22 70 72 69 6e 74 22 20 |" "`pr" |"print" |
|00004890| 22 60 70 69 22 20 22 70 | 72 69 76 61 74 65 22 20 |"`pi" "p|rivate" |
|000048a0| 22 60 70 6d 22 20 22 70 | 72 6f 67 72 61 6d 22 20 |"`pm" "p|rogram" |
|000048b0| 22 60 70 75 22 20 22 70 | 75 62 6c 69 63 22 20 22 |"`pu" "p|ublic" "|
|000048c0| 60 72 22 20 22 72 65 61 | 6c 22 20 22 60 72 63 22 |`r" "rea|l" "`rc"|
|000048d0| 20 22 72 65 63 75 72 73 | 69 76 65 22 20 22 60 72 | "recurs|ive" "`r|
|000048e0| 74 22 20 22 72 65 74 75 | 72 6e 22 20 22 60 72 77 |t" "retu|rn" "`rw|
|000048f0| 22 20 22 72 65 77 69 6e | 64 22 20 22 60 73 65 22 |" "rewin|d" "`se"|
|00004900| 20 22 73 65 6c 65 63 74 | 22 20 22 60 73 71 22 20 | "select|" "`sq" |
|00004910| 22 73 65 71 75 65 6e 63 | 65 22 20 22 60 73 75 22 |"sequenc|e" "`su"|
|00004920| 20 22 73 75 62 72 6f 75 | 74 69 6e 65 22 20 22 60 | "subrou|tine" "`|
|00004930| 74 61 22 20 22 74 61 72 | 67 65 74 22 20 22 60 74 |ta" "tar|get" "`t|
|00004940| 72 22 20 22 2e 74 72 75 | 65 2e 22 20 22 60 74 22 |r" ".tru|e." "`t"|
|00004950| 20 22 74 79 70 65 22 20 | 22 60 77 68 22 20 22 77 | "type" |"`wh" "w|
|00004960| 68 65 72 65 22 20 22 60 | 77 72 22 20 22 77 72 69 |here" "`|wr" "wri|
|00004970| 74 65 22 5d 20 35 29 0a | 23 40 32 33 32 30 20 4d |te"] 5).|#@2320 M|
|00004980| 61 6a 6f 72 20 6d 6f 64 | 65 20 66 6f 72 20 65 64 |ajor mod|e for ed|
|00004990| 69 74 69 6e 67 20 46 6f | 72 74 72 61 6e 20 39 30 |iting Fo|rtran 90|
|000049a0| 20 63 6f 64 65 20 69 6e | 20 66 72 65 65 20 66 6f | code in| free fo|
|000049b0| 72 6d 61 74 2e 0a 0a 5c | 5b 66 39 30 2d 69 6e 64 |rmat...\|[f90-ind|
|000049c0| 65 6e 74 2d 6e 65 77 2d | 6c 69 6e 65 5d 20 63 6f |ent-new-|line] co|
|000049d0| 72 72 65 63 74 73 20 63 | 75 72 72 65 6e 74 20 69 |rrects c|urrent i|
|000049e0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 61 6e 64 20 63 |ndentati|on and c|
|000049f0| 72 65 61 74 65 73 20 6e | 65 77 20 69 6e 64 65 6e |reates n|ew inden|
|00004a00| 74 65 64 20 6c 69 6e 65 | 2e 0a 5c 5b 66 39 30 2d |ted line|..\[f90-|
|00004a10| 69 6e 64 65 6e 74 2d 6c | 69 6e 65 5d 20 69 6e 64 |indent-l|ine] ind|
|00004a20| 65 6e 74 73 20 74 68 65 | 20 63 75 72 72 65 6e 74 |ents the| current|
|00004a30| 20 6c 69 6e 65 20 63 6f | 72 72 65 63 74 6c 79 2e | line co|rrectly.|
|00004a40| 20 0a 5c 5b 66 39 30 2d | 69 6e 64 65 6e 74 2d 73 | .\[f90-|indent-s|
|00004a50| 75 62 70 72 6f 67 72 61 | 6d 5d 20 69 6e 64 65 6e |ubprogra|m] inden|
|00004a60| 74 73 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 73 |ts the c|urrent s|
|00004a70| 75 62 70 72 6f 67 72 61 | 6d 2e 20 0a 0a 54 79 70 |ubprogra|m. ..Typ|
|00004a80| 65 20 60 3f 20 6f 72 20 | 60 5c 5b 68 65 6c 70 2d |e `? or |`\[help-|
|00004a90| 63 6f 6d 6d 61 6e 64 5d | 20 74 6f 20 64 69 73 70 |command]| to disp|
|00004aa0| 6c 61 79 20 61 20 6c 69 | 73 74 20 6f 66 20 62 75 |lay a li|st of bu|
|00004ab0| 69 6c 74 2d 69 6e 20 61 | 62 62 72 65 76 73 20 66 |ilt-in a|bbrevs f|
|00004ac0| 6f 72 20 46 39 30 20 6b | 65 79 77 6f 72 64 73 2e |or F90 k|eywords.|
|00004ad0| 0a 0a 4b 65 79 20 64 65 | 66 69 6e 69 74 69 6f 6e |..Key de|finition|
|00004ae0| 73 3a 0a 5c 7b 66 39 30 | 2d 6d 6f 64 65 2d 6d 61 |s:.\{f90|-mode-ma|
|00004af0| 70 7d 0a 0a 56 61 72 69 | 61 62 6c 65 73 20 63 6f |p}..Vari|ables co|
|00004b00| 6e 74 72 6f 6c 6c 69 6e | 67 20 69 6e 64 65 6e 74 |ntrollin|g indent|
|00004b10| 61 74 69 6f 6e 20 73 74 | 79 6c 65 20 61 6e 64 20 |ation st|yle and |
|00004b20| 65 78 74 72 61 20 66 65 | 61 74 75 72 65 73 3a 0a |extra fe|atures:.|
|00004b30| 0a 20 66 39 30 2d 64 6f | 2d 69 6e 64 65 6e 74 0a |. f90-do|-indent.|
|00004b40| 20 20 20 20 45 78 74 72 | 61 20 69 6e 64 65 6e 74 |    Extr|a indent|
|00004b50| 61 74 69 6f 6e 20 77 69 | 74 68 69 6e 20 64 6f 20 |ation wi|thin do |
|00004b60| 62 6c 6f 63 6b 73 2e 20 | 20 28 64 65 66 61 75 6c |blocks. | (defaul|
|00004b70| 74 20 33 29 0a 20 66 39 | 30 2d 69 66 2d 69 6e 64 |t 3). f9|0-if-ind|
|00004b80| 65 6e 74 0a 20 20 20 20 | 45 78 74 72 61 20 69 6e |ent.    |Extra in|
|00004b90| 64 65 6e 74 61 74 69 6f | 6e 20 77 69 74 68 69 6e |dentatio|n within|
|00004ba0| 20 69 66 2f 73 65 6c 65 | 63 74 20 63 61 73 65 2f | if/sele|ct case/|
|00004bb0| 77 68 65 72 65 2f 66 6f | 72 61 6c 6c 20 62 6c 6f |where/fo|rall blo|
|00004bc0| 63 6b 73 2e 20 28 64 65 | 66 61 75 6c 74 20 33 29 |cks. (de|fault 3)|
|00004bd0| 0a 20 66 39 30 2d 74 79 | 70 65 2d 69 6e 64 65 6e |. f90-ty|pe-inden|
|00004be0| 74 0a 20 20 20 20 45 78 | 74 72 61 20 69 6e 64 65 |t.    Ex|tra inde|
|00004bf0| 6e 74 61 74 69 6f 6e 20 | 77 69 74 68 69 6e 20 74 |ntation |within t|
|00004c00| 79 70 65 2f 69 6e 74 65 | 72 66 61 63 65 2f 62 6c |ype/inte|rface/bl|
|00004c10| 6f 63 6b 2d 64 61 74 61 | 20 62 6c 6f 63 6b 73 2e |ock-data| blocks.|
|00004c20| 20 20 28 64 65 66 61 75 | 6c 74 20 33 29 0a 20 66 |  (defau|lt 3). f|
|00004c30| 39 30 2d 70 72 6f 67 72 | 61 6d 2d 69 6e 64 65 6e |90-progr|am-inden|
|00004c40| 74 0a 20 20 20 20 45 78 | 74 72 61 20 69 6e 64 65 |t.    Ex|tra inde|
|00004c50| 6e 74 61 74 69 6f 6e 20 | 77 69 74 68 69 6e 20 70 |ntation |within p|
|00004c60| 72 6f 67 72 61 6d 2f 6d | 6f 64 75 6c 65 2f 73 75 |rogram/m|odule/su|
|00004c70| 62 72 6f 75 74 69 6e 65 | 2f 66 75 6e 63 74 69 6f |broutine|/functio|
|00004c80| 6e 20 62 6c 6f 63 6b 73 | 2e 0a 20 20 20 20 20 20 |n blocks|..      |
|00004c90| 28 64 65 66 61 75 6c 74 | 20 32 29 0a 20 66 39 30 |(default| 2). f90|
|00004ca0| 2d 63 6f 6e 74 69 6e 75 | 61 74 69 6f 6e 2d 69 6e |-continu|ation-in|
|00004cb0| 64 65 6e 74 0a 20 20 20 | 20 45 78 74 72 61 20 69 |dent.   | Extra i|
|00004cc0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 61 70 70 6c 69 |ndentati|on appli|
|00004cd0| 65 64 20 74 6f 20 63 6f | 6e 74 69 6e 75 61 74 69 |ed to co|ntinuati|
|00004ce0| 6f 6e 20 6c 69 6e 65 73 | 2e 20 20 28 64 65 66 61 |on lines|.  (defa|
|00004cf0| 75 6c 74 20 35 29 0a 20 | 66 39 30 2d 63 6f 6d 6d |ult 5). |f90-comm|
|00004d00| 65 6e 74 2d 72 65 67 69 | 6f 6e 0a 20 20 20 20 53 |ent-regi|on.    S|
|00004d10| 74 72 69 6e 67 20 69 6e | 73 65 72 74 65 64 20 62 |tring in|serted b|
|00004d20| 79 20 5c 5b 66 39 30 2d | 63 6f 6d 6d 65 6e 74 2d |y \[f90-|comment-|
|00004d30| 72 65 67 69 6f 6e 5d 20 | 61 74 20 73 74 61 72 74 |region] |at start|
|00004d40| 20 6f 66 20 65 61 63 68 | 20 6c 69 6e 65 20 69 6e | of each| line in|
|00004d50| 20 0a 20 20 20 20 72 65 | 67 69 6f 6e 2e 20 20 28 | .    re|gion.  (|
|00004d60| 64 65 66 61 75 6c 74 20 | 22 21 21 21 24 22 29 0a |default |"!!!$").|
|00004d70| 20 66 39 30 2d 69 6e 64 | 65 6e 74 65 64 2d 63 6f | f90-ind|ented-co|
|00004d80| 6d 6d 65 6e 74 2d 72 65 | 0a 20 20 20 20 52 65 67 |mment-re|.    Reg|
|00004d90| 65 78 70 20 64 65 74 65 | 72 6d 69 6e 69 6e 67 20 |exp dete|rmining |
|00004da0| 74 68 65 20 74 79 70 65 | 20 6f 66 20 63 6f 6d 6d |the type| of comm|
|00004db0| 65 6e 74 20 74 6f 20 62 | 65 20 69 6e 74 65 6e 64 |ent to b|e intend|
|00004dc0| 65 64 20 6c 69 6b 65 20 | 63 6f 64 65 2e 0a 20 20 |ed like |code..  |
|00004dd0| 20 20 28 64 65 66 61 75 | 6c 74 20 22 21 22 29 0a |  (defau|lt "!").|
|00004de0| 20 66 39 30 2d 64 69 72 | 65 63 74 69 76 65 2d 63 | f90-dir|ective-c|
|00004df0| 6f 6d 6d 65 6e 74 2d 72 | 65 0a 20 20 20 20 52 65 |omment-r|e.    Re|
|00004e00| 67 65 78 70 20 6f 66 20 | 63 6f 6d 6d 65 6e 74 2d |gexp of |comment-|
|00004e10| 6c 69 6b 65 20 64 69 72 | 65 63 74 69 76 65 20 6c |like dir|ective l|
|00004e20| 69 6b 65 20 22 21 48 50 | 46 5c 5c 24 22 2c 20 6e |ike "!HP|F\\$", n|
|00004e30| 6f 74 20 74 6f 20 62 65 | 20 69 6e 64 65 6e 74 65 |ot to be| indente|
|00004e40| 64 2e 0a 20 20 20 20 28 | 64 65 66 61 75 6c 74 20 |d..    (|default |
|00004e50| 22 21 68 70 66 5c 5c 24 | 22 29 0a 20 66 39 30 2d |"!hpf\\$|"). f90-|
|00004e60| 62 72 65 61 6b 2d 64 65 | 6c 69 6d 69 74 65 72 73 |break-de|limiters|
|00004e70| 0a 20 20 20 20 52 65 67 | 65 78 70 20 68 6f 6c 64 |.    Reg|exp hold|
|00004e80| 69 6e 67 20 6c 69 73 74 | 20 6f 66 20 64 65 6c 69 |ing list| of deli|
|00004e90| 6d 69 74 65 72 73 20 61 | 74 20 77 68 69 63 68 20 |miters a|t which |
|00004ea0| 6c 69 6e 65 73 20 6d 61 | 79 20 62 65 20 62 72 6f |lines ma|y be bro|
|00004eb0| 6b 65 6e 2e 0a 20 20 20 | 20 28 64 65 66 61 75 6c |ken..   | (defaul|
|00004ec0| 74 20 22 5b 2d 2b 2a 2f | 3e 3c 3d 2c 25 20 5c 74 |t "[-+*/|><=,% \t|
|00004ed0| 5d 22 29 0a 20 66 39 30 | 2d 62 72 65 61 6b 2d 62 |]"). f90|-break-b|
|00004ee0| 65 66 6f 72 65 2d 64 65 | 6c 69 6d 69 74 65 72 73 |efore-de|limiters|
|00004ef0| 0a 20 20 20 20 4e 6f 6e | 2d 6e 69 6c 20 63 61 75 |.    Non|-nil cau|
|00004f00| 73 65 73 20 60 66 39 30 | 2d 64 6f 2d 61 75 74 6f |ses `f90|-do-auto|
|00004f10| 2d 66 69 6c 6c 27 20 74 | 6f 20 62 72 65 61 6b 20 |-fill' t|o break |
|00004f20| 6c 69 6e 65 73 20 62 65 | 66 6f 72 65 20 64 65 6c |lines be|fore del|
|00004f30| 69 6d 69 74 65 72 73 2e | 0a 20 20 20 20 28 64 65 |imiters.|.    (de|
|00004f40| 66 61 75 6c 74 20 74 29 | 0a 20 66 39 30 2d 62 65 |fault t)|. f90-be|
|00004f50| 67 69 6e 6e 69 6e 67 2d | 61 6d 70 65 72 73 61 6e |ginning-|ampersan|
|00004f60| 64 20 0a 20 20 20 20 41 | 75 74 6f 6d 61 74 69 63 |d .    A|utomatic|
|00004f70| 20 69 6e 73 65 72 74 69 | 6f 6e 20 6f 66 20 26 20 | inserti|on of & |
|00004f80| 61 74 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |at begin|ning of |
|00004f90| 63 6f 6e 74 69 6e 75 61 | 74 69 6f 6e 20 6c 69 6e |continua|tion lin|
|00004fa0| 65 73 2e 20 28 64 65 66 | 61 75 6c 74 20 74 29 0a |es. (def|ault t).|
|00004fb0| 20 66 39 30 2d 73 6d 61 | 72 74 2d 65 6e 64 20 0a | f90-sma|rt-end .|
|00004fc0| 20 20 20 20 46 72 6f 6d | 20 61 6e 20 45 4e 44 20 |    From| an END |
|00004fd0| 73 74 61 74 65 6d 65 6e | 74 2c 20 63 68 65 63 6b |statemen|t, check|
|00004fe0| 20 61 6e 64 20 66 69 6c | 6c 20 74 68 65 20 65 6e | and fil|l the en|
|00004ff0| 64 20 75 73 69 6e 67 20 | 6d 61 74 63 68 69 6e 67 |d using |matching|
|00005000| 20 62 6c 6f 63 6b 20 73 | 74 61 72 74 2e 0a 20 20 | block s|tart..  |
|00005010| 20 20 41 6c 6c 6f 77 65 | 64 20 76 61 6c 75 65 73 |  Allowe|d values|
|00005020| 20 61 72 65 20 27 62 6c | 69 6e 6b 2c 20 27 6e 6f | are 'bl|ink, 'no|
|00005030| 2d 62 6c 69 6e 6b 2c 20 | 61 6e 64 20 6e 69 6c 2c |-blink, |and nil,|
|00005040| 20 77 68 69 63 68 20 64 | 65 74 65 72 6d 69 6e 65 | which d|etermine|
|00005050| 0a 20 20 20 20 77 68 65 | 74 68 65 72 20 74 6f 20 |.    whe|ther to |
|00005060| 62 6c 69 6e 6b 20 74 68 | 65 20 6d 61 74 63 68 69 |blink th|e matchi|
|00005070| 6e 67 20 62 65 67 69 6e | 6e 69 6e 67 2e 29 20 28 |ng begin|ning.) (|
|00005080| 64 65 66 61 75 6c 74 20 | 27 62 6c 69 6e 6b 29 0a |default |'blink).|
|00005090| 20 66 39 30 2d 61 75 74 | 6f 2d 6b 65 79 77 6f 72 | f90-aut|o-keywor|
|000050a0| 64 2d 63 61 73 65 0a 20 | 20 20 20 41 75 74 6f 6d |d-case. |   Autom|
|000050b0| 61 74 69 63 20 63 68 61 | 6e 67 65 20 6f 66 20 63 |atic cha|nge of c|
|000050c0| 61 73 65 20 6f 66 20 6b | 65 79 77 6f 72 64 73 2e |ase of k|eywords.|
|000050d0| 20 28 64 65 66 61 75 6c | 74 20 6e 69 6c 29 0a 20 | (defaul|t nil). |
|000050e0| 20 20 20 54 68 65 20 70 | 6f 73 73 69 62 69 6c 69 |   The p|ossibili|
|000050f0| 74 69 65 73 20 61 72 65 | 20 27 64 6f 77 6e 63 61 |ties are| 'downca|
|00005100| 73 65 2d 77 6f 72 64 2c | 20 27 75 70 63 61 73 65 |se-word,| 'upcase|
|00005110| 2d 77 6f 72 64 2c 20 27 | 63 61 70 69 74 61 6c 69 |-word, '|capitali|
|00005120| 7a 65 2d 77 6f 72 64 2e | 0a 20 66 39 30 2d 6c 65 |ze-word.|. f90-le|
|00005130| 61 76 65 2d 6c 69 6e 65 | 2d 6e 6f 0a 20 20 20 20 |ave-line|-no.    |
|00005140| 44 6f 20 6e 6f 74 20 6c | 65 66 74 2d 6a 75 73 74 |Do not l|eft-just|
|00005150| 69 66 79 20 6c 69 6e 65 | 20 6e 75 6d 62 65 72 73 |ify line| numbers|
|00005160| 2e 20 28 64 65 66 61 75 | 6c 74 20 6e 69 6c 29 0a |. (defau|lt nil).|
|00005170| 20 66 39 30 2d 73 74 61 | 72 74 75 70 2d 6d 65 73 | f90-sta|rtup-mes|
|00005180| 73 61 67 65 0a 20 20 20 | 20 53 65 74 20 74 6f 20 |sage.   | Set to |
|00005190| 6e 69 6c 20 74 6f 20 69 | 6e 68 69 62 69 74 20 6d |nil to i|nhibit m|
|000051a0| 65 73 73 61 67 65 20 66 | 69 72 73 74 20 74 69 6d |essage f|irst tim|
|000051b0| 65 20 46 39 30 20 6d 6f | 64 65 20 69 73 20 75 73 |e F90 mo|de is us|
|000051c0| 65 64 2e 20 28 64 65 66 | 61 75 6c 74 20 74 29 0a |ed. (def|ault t).|
|000051d0| 20 66 39 30 2d 6b 65 79 | 77 6f 72 64 73 2d 72 65 | f90-key|words-re|
|000051e0| 0a 20 20 20 20 4c 69 73 | 74 20 6f 66 20 6b 65 79 |.    Lis|t of key|
|000051f0| 77 6f 72 64 73 20 75 73 | 65 64 20 66 6f 72 20 68 |words us|ed for h|
|00005200| 69 67 68 6c 69 67 68 74 | 69 6e 67 2f 75 70 63 61 |ighlight|ing/upca|
|00005210| 73 65 2d 6b 65 79 77 6f | 72 64 73 20 65 74 63 2e |se-keywo|rds etc.|
|00005220| 0a 0a 54 75 72 6e 69 6e | 67 20 6f 6e 20 46 39 30 |..Turnin|g on F90|
|00005230| 20 6d 6f 64 65 20 63 61 | 6c 6c 73 20 74 68 65 20 | mode ca|lls the |
|00005240| 76 61 6c 75 65 20 6f 66 | 20 74 68 65 20 76 61 72 |value of| the var|
|00005250| 69 61 62 6c 65 20 60 66 | 39 30 2d 6d 6f 64 65 2d |iable `f|90-mode-|
|00005260| 68 6f 6f 6b 27 0a 77 69 | 74 68 20 6e 6f 20 61 72 |hook'.wi|th no ar|
|00005270| 67 73 2c 20 69 66 20 74 | 68 61 74 20 76 61 6c 75 |gs, if t|hat valu|
|00005280| 65 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 2e 1f 0a 28 |e is non|-nil...(|
|00005290| 64 65 66 61 6c 69 61 73 | 20 27 66 39 30 2d 6d 6f |defalias| 'f90-mo|
|000052a0| 64 65 20 23 5b 6e 69 6c | 20 22 c0 20 88 c1 12 c3 |de #[nil| ". ....|
|000052b0| 14 0d 16 06 c7 0e 08 21 | 88 c9 0e 5c 6e 21 88 cb |.......!|...\n!..|
|000052c0| cc 21 88 cd 16 0c cb ce | 21 88 cf 16 0e cb d0 21 |.!......|!......!|
|000052d0| 88 d1 16 10 cb d2 21 88 | d3 16 12 cb d4 21 88 d5 |......!.|.....!..|
|000052e0| 16 14 cb d6 21 88 d7 16 | 16 cb d8 21 88 d1 16 18 |....!...|...!....|
|000052f0| d9 16 1a db dc 0e 1d 5c | 22 ab a3 de c1 df d1 23 |.......\|"......#|
|00005300| 88 e0 e1 21 ab 98 0e 5c | 22 ab 94 e3 c3 0e 5c 22 |...!...\|".....\"|
|00005310| 5c 22 ac 8d e4 e5 0e 5c | 22 21 21 88 e6 d9 0e 27 |\".....\|"!!....'|
|00005320| 5c 22 88 cb e8 21 88 e9 | 16 28 cb ea 21 88 0e 2b |\"...!..|.(..!..+|
|00005330| 16 2a ec ed 21 88 0e 2e | ab 86 ef f0 0e 31 5c 22 |.*..!...|.....1\"|
|00005340| 88 d9 89 16 2e 87 22 20 | 5b 6b 69 6c 6c 2d 61 6c |......" |[kill-al|
|00005350| 6c 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |l-local-|variable|
|00005360| 73 20 66 39 30 2d 6d 6f | 64 65 20 6d 61 6a 6f 72 |s f90-mo|de major|
|00005370| 2d 6d 6f 64 65 20 22 46 | 39 30 22 20 6d 6f 64 65 |-mode "F|90" mode|
|00005380| 2d 6e 61 6d 65 20 66 39 | 30 2d 6d 6f 64 65 2d 61 |-name f9|0-mode-a|
|00005390| 62 62 72 65 76 2d 74 61 | 62 6c 65 20 6c 6f 63 61 |bbrev-ta|ble loca|
|000053a0| 6c 2d 61 62 62 72 65 76 | 2d 74 61 62 6c 65 20 73 |l-abbrev|-table s|
|000053b0| 65 74 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |et-synta|x-table |
|000053c0| 66 39 30 2d 6d 6f 64 65 | 2d 73 79 6e 74 61 78 2d |f90-mode|-syntax-|
|000053d0| 74 61 62 6c 65 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |table us|e-local-|
|000053e0| 6d 61 70 20 66 39 30 2d | 6d 6f 64 65 2d 6d 61 70 |map f90-|mode-map|
|000053f0| 20 6d 61 6b 65 2d 6c 6f | 63 61 6c 2d 76 61 72 69 | make-lo|cal-vari|
|00005400| 61 62 6c 65 20 69 6e 64 | 65 6e 74 2d 6c 69 6e 65 |able ind|ent-line|
|00005410| 2d 66 75 6e 63 74 69 6f | 6e 20 66 39 30 2d 69 6e |-functio|n f90-in|
|00005420| 64 65 6e 74 2d 6c 69 6e | 65 20 69 6e 64 65 6e 74 |dent-lin|e indent|
|00005430| 2d 72 65 67 69 6f 6e 2d | 66 75 6e 63 74 69 6f 6e |-region-|function|
|00005440| 20 66 39 30 2d 69 6e 64 | 65 6e 74 2d 72 65 67 69 | f90-ind|ent-regi|
|00005450| 6f 6e 20 72 65 71 75 69 | 72 65 2d 66 69 6e 61 6c |on requi|re-final|
|00005460| 2d 6e 65 77 6c 69 6e 65 | 20 74 20 63 6f 6d 6d 65 |-newline| t comme|
|00005470| 6e 74 2d 73 74 61 72 74 | 20 22 21 22 20 63 6f 6d |nt-start| "!" com|
|00005480| 6d 65 6e 74 2d 73 74 61 | 72 74 2d 73 6b 69 70 20 |ment-sta|rt-skip |
|00005490| 22 21 2b 20 2a 22 20 63 | 6f 6d 6d 65 6e 74 2d 69 |"!+ *" c|omment-i|
|000054a0| 6e 64 65 6e 74 2d 66 75 | 6e 63 74 69 6f 6e 20 66 |ndent-fu|nction f|
|000054b0| 39 30 2d 63 6f 6d 6d 65 | 6e 74 2d 69 6e 64 65 6e |90-comme|nt-inden|
|000054c0| 74 20 61 62 62 72 65 76 | 2d 61 6c 6c 2d 63 61 70 |t abbrev|-all-cap|
|000054d0| 73 20 6e 69 6c 20 69 6e | 64 65 6e 74 2d 74 61 62 |s nil in|dent-tab|
|000054e0| 73 2d 6d 6f 64 65 20 73 | 74 72 69 6e 67 2d 6d 61 |s-mode s|tring-ma|
|000054f0| 74 63 68 20 22 58 45 6d | 61 63 73 22 20 65 6d 61 |tch "XEm|acs" ema|
|00005500| 63 73 2d 76 65 72 73 69 | 6f 6e 20 70 75 74 20 66 |cs-versi|on put f|
|00005510| 6f 6e 74 2d 6c 6f 63 6b | 2d 6b 65 79 77 6f 72 64 |ont-lock|-keyword|
|00005520| 73 2d 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |s-case-f|old-sear|
|00005530| 63 68 20 66 65 61 74 75 | 72 65 70 20 6d 65 6e 75 |ch featu|rep menu|
|00005540| 62 61 72 20 63 75 72 72 | 65 6e 74 2d 6d 65 6e 75 |bar curr|ent-menu|
|00005550| 62 61 72 20 61 73 73 6f | 63 20 73 65 74 2d 62 75 |bar asso|c set-bu|
|00005560| 66 66 65 72 2d 6d 65 6e | 75 62 61 72 20 63 6f 70 |ffer-men|ubar cop|
|00005570| 79 2d 73 65 71 75 65 6e | 63 65 20 61 64 64 2d 73 |y-sequen|ce add-s|
|00005580| 75 62 6d 65 6e 75 20 66 | 39 30 2d 78 65 6d 61 63 |ubmenu f|90-xemac|
|00005590| 73 2d 6d 65 6e 75 20 66 | 6f 6e 74 2d 6c 6f 63 6b |s-menu f|ont-lock|
|000055a0| 2d 64 65 66 61 75 6c 74 | 73 20 28 28 66 39 30 2d |-default|s ((f90-|
|000055b0| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 6b 65 79 77 6f 72 |font-loc|k-keywor|
|000055c0| 64 73 20 66 39 30 2d 66 | 6f 6e 74 2d 6c 6f 63 6b |ds f90-f|ont-lock|
|000055d0| 2d 6b 65 79 77 6f 72 64 | 73 2d 31 20 66 39 30 2d |-keyword|s-1 f90-|
|000055e0| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 6b 65 79 77 6f 72 |font-loc|k-keywor|
|000055f0| 64 73 2d 32 20 66 39 30 | 2d 66 6f 6e 74 2d 6c 6f |ds-2 f90|-font-lo|
|00005600| 63 6b 2d 6b 65 79 77 6f | 72 64 73 2d 33 20 66 39 |ck-keywo|rds-3 f9|
|00005610| 30 2d 66 6f 6e 74 2d 6c | 6f 63 6b 2d 6b 65 79 77 |0-font-l|ock-keyw|
|00005620| 6f 72 64 73 2d 34 29 20 | 6e 69 6c 20 74 29 20 69 |ords-4) |nil t) i|
|00005630| 6d 65 6e 75 2d 67 65 6e | 65 72 69 63 2d 65 78 70 |menu-gen|eric-exp|
|00005640| 72 65 73 73 69 6f 6e 20 | 66 39 30 2d 69 6d 65 6e |ression |f90-imen|
|00005650| 75 2d 67 65 6e 65 72 69 | 63 2d 65 78 70 72 65 73 |u-generi|c-expres|
|00005660| 73 69 6f 6e 20 72 75 6e | 2d 68 6f 6f 6b 73 20 66 |sion run|-hooks f|
|00005670| 39 30 2d 6d 6f 64 65 2d | 68 6f 6f 6b 20 66 39 30 |90-mode-|hook f90|
|00005680| 2d 73 74 61 72 74 75 70 | 2d 6d 65 73 73 61 67 65 |-startup|-message|
|00005690| 20 6d 65 73 73 61 67 65 | 20 22 45 6d 61 63 73 20 | message| "Emacs |
|000056a0| 46 39 30 20 6d 6f 64 65 | 3b 20 70 6c 65 61 73 65 |F90 mode|; please|
|000056b0| 20 72 65 70 6f 72 74 20 | 62 75 67 73 20 74 6f 20 | report |bugs to |
|000056c0| 25 73 22 20 62 75 67 2d | 66 39 30 2d 6d 6f 64 65 |%s" bug-|f90-mode|
|000056d0| 5d 20 34 20 28 23 24 20 | 2e 20 31 38 38 31 35 29 |] 4 (#$ |. 18815)|
|000056e0| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|000056f0| 20 27 66 39 30 2d 67 65 | 74 2d 62 65 67 2d 6f 66 | 'f90-ge|t-beg-of|
|00005700| 2d 6c 69 6e 65 20 23 5b | 6e 69 6c 20 22 8a c0 79 |-line #[|nil "..y|
|00005710| 88 60 29 87 22 20 5b 30 | 5d 20 31 5d 29 0a 28 62 |.`)." [0|] 1]).(b|
|00005720| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4e c2 73 ac |yte-code| "..N.s.|
|00005730| 85 c3 c4 c0 5c 22 88 c5 | c0 c1 c6 23 87 22 20 5b |....\"..|...#." [|
|00005740| 66 39 30 2d 67 65 74 2d | 62 65 67 2d 6f 66 2d 6c |f90-get-|beg-of-l|
|00005750| 69 6e 65 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ine byte|-optimiz|
|00005760| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00005770| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00005780| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00005790| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|000057a0| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|000057b0| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|000057c0| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|000057d0| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|000057e0| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|000057f0| 66 39 30 2d 67 65 74 2d | 65 6e 64 2d 6f 66 2d 6c |f90-get-|end-of-l|
|00005800| 69 6e 65 20 23 5b 6e 69 | 6c 20 22 8a c0 7f 88 60 |ine #[ni|l "....`|
|00005810| 29 87 22 20 5b 6e 69 6c | 5d 20 31 5d 29 0a 28 62 |)." [nil|] 1]).(b|
|00005820| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4e c2 73 ac |yte-code| "..N.s.|
|00005830| 85 c3 c4 c0 5c 22 88 c5 | c0 c1 c6 23 87 22 20 5b |....\"..|...#." [|
|00005840| 66 39 30 2d 67 65 74 2d | 65 6e 64 2d 6f 66 2d 6c |f90-get-|end-of-l|
|00005850| 69 6e 65 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ine byte|-optimiz|
|00005860| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00005870| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00005880| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00005890| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|000058a0| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|000058b0| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|000058c0| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|000058d0| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|000058e0| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|000058f0| 66 39 30 2d 69 6e 2d 73 | 74 72 69 6e 67 20 23 5b |f90-in-s|tring #[|
|00005900| 6e 69 6c 20 22 08 ab 88 | 60 08 56 ab 83 08 aa 81 |nil "...|`.V.....|
|00005910| 65 19 c2 c3 09 60 5c 22 | 38 29 87 22 20 5b 66 39 |e....`\"|8)." [f9|
|00005920| 30 2d 63 61 63 68 65 2d | 70 6f 73 69 74 69 6f 6e |0-cache-|position|
|00005930| 20 62 65 67 2d 70 6e 74 | 20 33 20 70 61 72 73 65 | beg-pnt| 3 parse|
|00005940| 2d 70 61 72 74 69 61 6c | 2d 73 65 78 70 5d 20 34 |-partial|-sexp] 4|
|00005950| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00005960| c1 4e c2 73 ac 85 c3 c4 | c0 5c 22 88 c5 c0 c1 c6 |.N.s....|.\".....|
|00005970| 23 87 22 20 5b 66 39 30 | 2d 69 6e 2d 73 74 72 69 |#." [f90|-in-stri|
|00005980| 6e 67 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |ng byte-|optimize|
|00005990| 72 20 28 6e 69 6c 20 62 | 79 74 65 2d 63 6f 6d 70 |r (nil b|yte-comp|
|000059a0| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|000059b0| 64 29 20 65 72 72 6f 72 | 20 22 25 73 20 61 6c 72 |d) error| "%s alr|
|000059c0| 65 61 64 79 20 68 61 73 | 20 61 20 62 79 74 65 2d |eady has| a byte-|
|000059d0| 6f 70 74 69 6d 69 7a 65 | 72 2c 20 63 61 6e 27 74 |optimize|r, can't|
|000059e0| 20 6d 61 6b 65 20 69 74 | 20 69 6e 6c 69 6e 65 22 | make it| inline"|
|000059f0| 20 70 75 74 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c | put byt|e-compil|
|00005a00| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 5d |e-inline|-expand]|
|00005a10| 20 34 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 | 4).(def|alias 'f|
|00005a20| 39 30 2d 69 6e 2d 63 6f | 6d 6d 65 6e 74 20 23 5b |90-in-co|mment #[|
|00005a30| 6e 69 6c 20 22 08 ab 88 | 60 08 56 ab 83 08 aa 81 |nil "...|`.V.....|
|00005a40| 65 19 c2 c3 09 60 5c 22 | 38 29 87 22 20 5b 66 39 |e....`\"|8)." [f9|
|00005a50| 30 2d 63 61 63 68 65 2d | 70 6f 73 69 74 69 6f 6e |0-cache-|position|
|00005a60| 20 62 65 67 2d 70 6e 74 | 20 34 20 70 61 72 73 65 | beg-pnt| 4 parse|
|00005a70| 2d 70 61 72 74 69 61 6c | 2d 73 65 78 70 5d 20 34 |-partial|-sexp] 4|
|00005a80| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00005a90| c1 4e c2 73 ac 85 c3 c4 | c0 5c 22 88 c5 c0 c1 c6 |.N.s....|.\".....|
|00005aa0| 23 87 22 20 5b 66 39 30 | 2d 69 6e 2d 63 6f 6d 6d |#." [f90|-in-comm|
|00005ab0| 65 6e 74 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ent byte|-optimiz|
|00005ac0| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00005ad0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00005ae0| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00005af0| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|00005b00| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|00005b10| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|00005b20| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|00005b30| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00005b40| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|00005b50| 66 39 30 2d 6c 69 6e 65 | 2d 63 6f 6e 74 69 6e 75 |f90-line|-continu|
|00005b60| 65 64 20 23 5b 6e 69 6c | 20 22 8a 8a c0 79 88 60 |ed #[nil| "...y.`|
|00005b70| 29 19 c2 7f 88 0b ab 88 | 60 0b 56 ab 83 0b aa 81 |).......|`.V.....|
|00005b80| 65 1c c5 c6 0c 60 5c 22 | 38 29 ab 8b c7 c8 09 5c |e....`\"|8).....\|
|00005b90| 22 88 c8 c2 78 88 aa 5f | c9 c2 78 88 68 ca 55 2a |"...x.._|..x.h.U*|
|00005ba0| 87 22 20 5b 30 20 62 6f | 6c 20 6e 69 6c 20 66 39 |." [0 bo|l nil f9|
|00005bb0| 30 2d 63 61 63 68 65 2d | 70 6f 73 69 74 69 6f 6e |0-cache-|position|
|00005bc0| 20 62 65 67 2d 70 6e 74 | 20 34 20 70 61 72 73 65 | beg-pnt| 4 parse|
|00005bd0| 2d 70 61 72 74 69 61 6c | 2d 73 65 78 70 20 73 65 |-partial|-sexp se|
|00005be0| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 22 21 |arch-bac|kward "!|
|00005bf0| 22 20 22 20 09 22 20 3f | 5c 26 5d 20 34 5d 29 0a |" " ." ?|\&] 4]).|
|00005c00| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 4e c2 |(byte-co|de "..N.|
|00005c10| 73 ac 85 c3 c4 c0 5c 22 | 88 c5 c0 c1 c6 23 87 22 |s.....\"|.....#."|
|00005c20| 20 5b 66 39 30 2d 6c 69 | 6e 65 2d 63 6f 6e 74 69 | [f90-li|ne-conti|
|00005c30| 6e 75 65 64 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |nued byt|e-optimi|
|00005c40| 7a 65 72 20 28 6e 69 6c | 20 62 79 74 65 2d 63 6f |zer (nil| byte-co|
|00005c50| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00005c60| 61 6e 64 29 20 65 72 72 | 6f 72 20 22 25 73 20 61 |and) err|or "%s a|
|00005c70| 6c 72 65 61 64 79 20 68 | 61 73 20 61 20 62 79 74 |lready h|as a byt|
|00005c80| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 2c 20 63 61 6e |e-optimi|zer, can|
|00005c90| 27 74 20 6d 61 6b 65 20 | 69 74 20 69 6e 6c 69 6e |'t make |it inlin|
|00005ca0| 65 22 20 70 75 74 20 62 | 79 74 65 2d 63 6f 6d 70 |e" put b|yte-comp|
|00005cb0| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00005cc0| 64 5d 20 34 29 0a 23 40 | 38 38 20 52 65 74 75 72 |d] 4).#@|88 Retur|
|00005cd0| 6e 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 6f 66 |n indent|ation of|
|00005ce0| 20 63 75 72 72 65 6e 74 | 20 6c 69 6e 65 2e 0a 4c | current| line..L|
|00005cf0| 69 6e 65 2d 6e 75 6d 62 | 65 72 73 20 61 72 65 20 |ine-numb|ers are |
|00005d00| 63 6f 6e 73 69 64 65 72 | 65 64 20 77 68 69 74 65 |consider|ed white|
|00005d10| 73 70 61 63 65 20 63 68 | 61 72 61 63 74 65 72 73 |space ch|aracters|
|00005d20| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 66 39 |...(defa|lias 'f9|
|00005d30| 30 2d 63 75 72 72 65 6e | 74 2d 69 6e 64 65 6e 74 |0-curren|t-indent|
|00005d40| 61 74 69 6f 6e 20 23 5b | 6e 69 6c 20 22 8a c0 79 |ation #[|nil "..y|
|00005d50| 88 c1 c2 77 88 69 29 87 | 22 20 5b 30 20 22 20 09 |...w.i).|" [0 " .|
|00005d60| 30 2d 39 22 20 6e 69 6c | 5d 20 32 20 28 23 24 20 |0-9" nil|] 2 (#$ |
|00005d70| 2e 20 32 33 37 35 35 29 | 5d 29 0a 28 62 79 74 65 |. 23755)|]).(byte|
|00005d80| 2d 63 6f 64 65 20 22 c0 | c1 4e c2 73 ac 85 c3 c4 |-code ".|.N.s....|
|00005d90| c0 5c 22 88 c5 c0 c1 c6 | 23 87 22 20 5b 66 39 30 |.\".....|#." [f90|
|00005da0| 2d 63 75 72 72 65 6e 74 | 2d 69 6e 64 65 6e 74 61 |-current|-indenta|
|00005db0| 74 69 6f 6e 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |tion byt|e-optimi|
|00005dc0| 7a 65 72 20 28 6e 69 6c | 20 62 79 74 65 2d 63 6f |zer (nil| byte-co|
|00005dd0| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00005de0| 61 6e 64 29 20 65 72 72 | 6f 72 20 22 25 73 20 61 |and) err|or "%s a|
|00005df0| 6c 72 65 61 64 79 20 68 | 61 73 20 61 20 62 79 74 |lready h|as a byt|
|00005e00| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 2c 20 63 61 6e |e-optimi|zer, can|
|00005e10| 27 74 20 6d 61 6b 65 20 | 69 74 20 69 6e 6c 69 6e |'t make |it inlin|
|00005e20| 65 22 20 70 75 74 20 62 | 79 74 65 2d 63 6f 6d 70 |e" put b|yte-comp|
|00005e30| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00005e40| 64 5d 20 34 29 0a 23 40 | 39 33 20 49 6e 64 65 6e |d] 4).#@|93 Inden|
|00005e50| 74 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 20 74 |t curren|t line t|
|00005e60| 6f 20 63 6f 6c 75 6d 6e | 20 43 4f 4c 2e 0a 49 66 |o column| COL..If|
|00005e70| 20 6e 6f 2d 6c 69 6e 65 | 2d 6e 75 6d 62 65 72 20 | no-line|-number |
|00005e80| 6e 69 6c 2c 20 6a 75 6d | 70 20 6f 76 65 72 20 61 |nil, jum|p over a|
|00005e90| 20 70 6f 73 73 69 62 6c | 65 20 6c 69 6e 65 2d 6e | possibl|e line-n|
|00005ea0| 75 6d 62 65 72 2e 1f 0a | 28 64 65 66 61 6c 69 61 |umber...|(defalia|
|00005eb0| 73 20 27 66 39 30 2d 69 | 6e 64 65 6e 74 2d 74 6f |s 'f90-i|ndent-to|
|00005ec0| 20 23 5b 28 63 6f 6c 20 | 26 6f 70 74 69 6f 6e 61 | #[(col |&optiona|
|00005ed0| 6c 20 6e 6f 2d 6c 69 6e | 65 2d 6e 75 6d 62 65 72 |l no-lin|e-number|
|00005ee0| 29 20 22 c0 79 88 09 ac | 84 c2 c3 77 88 c4 20 88 |) ".y...|...w.. .|
|00005ef0| 69 c0 55 ab 83 0d 6a 87 | c6 0d c7 5c 22 87 22 20 |i.U...j.|...\"." |
|00005f00| 5b 30 20 6e 6f 2d 6c 69 | 6e 65 2d 6e 75 6d 62 65 |[0 no-li|ne-numbe|
|00005f10| 72 20 22 20 09 30 2d 39 | 22 20 6e 69 6c 20 64 65 |r " .0-9|" nil de|
|00005f20| 6c 65 74 65 2d 68 6f 72 | 69 7a 6f 6e 74 61 6c 2d |lete-hor|izontal-|
|00005f30| 73 70 61 63 65 20 63 6f | 6c 20 69 6e 64 65 6e 74 |space co|l indent|
|00005f40| 2d 74 6f 20 31 5d 20 33 | 20 28 23 24 20 2e 20 32 |-to 1] 3| (#$ . 2|
|00005f50| 34 31 33 39 29 5d 29 0a | 28 62 79 74 65 2d 63 6f |4139)]).|(byte-co|
|00005f60| 64 65 20 22 c0 c1 4e c2 | 73 ac 85 c3 c4 c0 5c 22 |de "..N.|s.....\"|
|00005f70| 88 c5 c0 c1 c6 23 87 22 | 20 5b 66 39 30 2d 69 6e |.....#."| [f90-in|
|00005f80| 64 65 6e 74 2d 74 6f 20 | 62 79 74 65 2d 6f 70 74 |dent-to |byte-opt|
|00005f90| 69 6d 69 7a 65 72 20 28 | 6e 69 6c 20 62 79 74 65 |imizer (|nil byte|
|00005fa0| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|00005fb0| 65 78 70 61 6e 64 29 20 | 65 72 72 6f 72 20 22 25 |expand) |error "%|
|00005fc0| 73 20 61 6c 72 65 61 64 | 79 20 68 61 73 20 61 20 |s alread|y has a |
|00005fd0| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 2c 20 |byte-opt|imizer, |
|00005fe0| 63 61 6e 27 74 20 6d 61 | 6b 65 20 69 74 20 69 6e |can't ma|ke it in|
|00005ff0| 6c 69 6e 65 22 20 70 75 | 74 20 62 79 74 65 2d 63 |line" pu|t byte-c|
|00006000| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|00006010| 70 61 6e 64 5d 20 34 29 | 0a 28 64 65 66 61 6c 69 |pand] 4)|.(defali|
|00006020| 61 73 20 27 66 39 30 2d | 6d 61 74 63 68 2d 70 69 |as 'f90-|match-pi|
|00006030| 65 63 65 20 23 5b 28 61 | 72 67 29 20 22 08 94 ad |ece #[(a|rg) "...|
|00006040| 85 08 94 08 95 7b 87 22 | 20 5b 61 72 67 5d 20 32 |.....{."| [arg] 2|
|00006050| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00006060| c1 4e c2 73 ac 85 c3 c4 | c0 5c 22 88 c5 c0 c1 c6 |.N.s....|.\".....|
|00006070| 23 87 22 20 5b 66 39 30 | 2d 6d 61 74 63 68 2d 70 |#." [f90|-match-p|
|00006080| 69 65 63 65 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |iece byt|e-optimi|
|00006090| 7a 65 72 20 28 6e 69 6c | 20 62 79 74 65 2d 63 6f |zer (nil| byte-co|
|000060a0| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|000060b0| 61 6e 64 29 20 65 72 72 | 6f 72 20 22 25 73 20 61 |and) err|or "%s a|
|000060c0| 6c 72 65 61 64 79 20 68 | 61 73 20 61 20 62 79 74 |lready h|as a byt|
|000060d0| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 2c 20 63 61 6e |e-optimi|zer, can|
|000060e0| 27 74 20 6d 61 6b 65 20 | 69 74 20 69 6e 6c 69 6e |'t make |it inlin|
|000060f0| 65 22 20 70 75 74 20 62 | 79 74 65 2d 63 6f 6d 70 |e" put b|yte-comp|
|00006100| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00006110| 64 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |d] 4).(d|efalias |
|00006120| 27 66 39 30 2d 67 65 74 | 2d 70 72 65 73 65 6e 74 |'f90-get|-present|
|00006130| 2d 63 6f 6d 6d 65 6e 74 | 2d 74 79 70 65 20 23 5b |-comment|-type #[|
|00006140| 6e 69 6c 20 22 8a c0 8a | c0 7f 88 60 29 19 1a 0b |nil "...|...`)...|
|00006150| ab 88 60 0b 56 ab 83 0b | aa 81 65 1c c5 c6 0c 60 |..`.V...|..e....`|
|00006160| 5c 22 38 29 ab ab c7 79 | 88 c8 c9 09 5c 22 88 0b |\"8)...y|....\"..|
|00006170| ab 88 60 0b 56 ab 83 0b | aa 81 65 1c ca c6 0c 60 |..`.V...|..e....`|
|00006180| 5c 22 38 29 ab 87 c8 c9 | 09 5c 22 88 aa 63 c7 94 |\"8)....|.\"..c..|
|00006190| c7 95 7b 12 5c 6e 2b 87 | 22 20 5b 6e 69 6c 20 65 |..{.\n+.|" [nil e|
|000061a0| 6f 6c 20 74 79 70 65 20 | 66 39 30 2d 63 61 63 68 |ol type |f90-cach|
|000061b0| 65 2d 70 6f 73 69 74 69 | 6f 6e 20 62 65 67 2d 70 |e-positi|on beg-p|
|000061c0| 6e 74 20 34 20 70 61 72 | 73 65 2d 70 61 72 74 69 |nt 4 par|se-parti|
|000061d0| 61 6c 2d 73 65 78 70 20 | 30 20 72 65 2d 73 65 61 |al-sexp |0 re-sea|
|000061e0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5b 21 5d |rch-forw|ard "[!]|
|000061f0| 2b 22 20 33 5d 20 34 5d | 29 0a 28 62 79 74 65 2d |+" 3] 4]|).(byte-|
|00006200| 63 6f 64 65 20 22 c0 c1 | 4e c2 73 ac 85 c3 c4 c0 |code "..|N.s.....|
|00006210| 5c 22 88 c5 c0 c1 c6 23 | 87 22 20 5b 66 39 30 2d |\".....#|." [f90-|
|00006220| 67 65 74 2d 70 72 65 73 | 65 6e 74 2d 63 6f 6d 6d |get-pres|ent-comm|
|00006230| 65 6e 74 2d 74 79 70 65 | 20 62 79 74 65 2d 6f 70 |ent-type| byte-op|
|00006240| 74 69 6d 69 7a 65 72 20 | 28 6e 69 6c 20 62 79 74 |timizer |(nil byt|
|00006250| 65 2d 63 6f 6d 70 69 6c | 65 2d 69 6e 6c 69 6e 65 |e-compil|e-inline|
|00006260| 2d 65 78 70 61 6e 64 29 | 20 65 72 72 6f 72 20 22 |-expand)| error "|
|00006270| 25 73 20 61 6c 72 65 61 | 64 79 20 68 61 73 20 61 |%s alrea|dy has a|
|00006280| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 2c | byte-op|timizer,|
|00006290| 20 63 61 6e 27 74 20 6d | 61 6b 65 20 69 74 20 69 | can't m|ake it i|
|000062a0| 6e 6c 69 6e 65 22 20 70 | 75 74 20 62 79 74 65 2d |nline" p|ut byte-|
|000062b0| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|000062c0| 78 70 61 6e 64 5d 20 34 | 29 0a 23 40 36 31 20 43 |xpand] 4|).#@61 C|
|000062d0| 6f 6d 70 61 72 65 20 73 | 74 72 69 6e 67 73 20 6e |ompare s|trings n|
|000062e0| 65 67 6c 65 63 74 69 6e | 67 20 63 61 73 65 20 61 |eglectin|g case a|
|000062f0| 6e 64 20 61 6c 6c 6f 77 | 69 6e 67 20 66 6f 72 20 |nd allow|ing for |
|00006300| 6e 69 6c 20 76 61 6c 75 | 65 2e 1f 0a 28 64 65 66 |nil valu|e...(def|
|00006310| 61 6c 69 61 73 20 27 66 | 39 30 2d 65 71 75 61 6c |alias 'f|90-equal|
|00006320| 2d 73 79 6d 62 6f 6c 73 | 20 23 5b 28 61 20 62 29 |-symbols| #[(a b)|
|00006330| 20 22 08 ad 82 08 97 09 | ad 82 09 97 1a 89 1b 5c | "......|.......\|
|00006340| 6e 2a 6b 87 22 20 5b 61 | 20 62 20 62 2d 6c 6f 63 |n*k." [a| b b-loc|
|00006350| 61 6c 20 61 2d 6c 6f 63 | 61 6c 5d 20 33 20 28 23 |al a-loc|al] 3 (#|
|00006360| 24 20 2e 20 32 35 32 39 | 35 29 5d 29 0a 28 62 79 |$ . 2529|5)]).(by|
|00006370| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4e c2 73 ac 85 |te-code |"..N.s..|
|00006380| c3 c4 c0 5c 22 88 c5 c0 | c1 c6 23 87 22 20 5b 66 |...\"...|..#." [f|
|00006390| 39 30 2d 65 71 75 61 6c | 2d 73 79 6d 62 6f 6c 73 |90-equal|-symbols|
|000063a0| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 20 | byte-op|timizer |
|000063b0| 28 6e 69 6c 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |(nil byt|e-compil|
|000063c0| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 29 |e-inline|-expand)|
|000063d0| 20 65 72 72 6f 72 20 22 | 25 73 20 61 6c 72 65 61 | error "|%s alrea|
|000063e0| 64 79 20 68 61 73 20 61 | 20 62 79 74 65 2d 6f 70 |dy has a| byte-op|
|000063f0| 74 69 6d 69 7a 65 72 2c | 20 63 61 6e 27 74 20 6d |timizer,| can't m|
+--------+-------------------------+-------------------------+--------+--------+